about summary refs log tree commit diff stats
path: root/mu.arc
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2014-11-04 19:00:49 -0800
committerKartik K. Agaram <vc@akkartik.com>2014-11-04 19:00:49 -0800
commit1a85c63f4d69a22af803c679a49b821a2b876965 (patch)
treea0472fe7f6cd85e7783871a3c832b4459a999b36 /mu.arc
parente7d75e0bfa9015d18b8babc4ec9c5c1937658d69 (diff)
downloadmu-1a85c63f4d69a22af803c679a49b821a2b876965.tar.gz
229
Diffstat (limited to 'mu.arc')
-rw-r--r--mu.arc4
1 files changed, 0 insertions, 4 deletions
diff --git a/mu.arc b/mu.arc
index 28009cc5..744e8515 100644
--- a/mu.arc
+++ b/mu.arc
@@ -349,11 +349,8 @@
 ($:require "charterm/main.rkt")
 
 (def run-for-time-slice (time-slice)
-;?   (prn "AAA")
   (point return
-;?     (prn "BBB")
     (for ninstrs 0 (< ninstrs time-slice) (++ ninstrs)
-;?       (prn "CCC " pc.routine* " " routine* " " (len body.routine*))
       (if (empty body.routine*) (err "@stack.routine*.0!fn-name not defined"))
       (while (>= pc.routine* (len body.routine*))
         (pop-stack routine*)
@@ -363,7 +360,6 @@
       (trace "run" top.routine*!fn-name " " pc.routine* ": " (body.routine* pc.routine*))
 ;?       (trace "run" routine*)
       (let (oarg op arg)  (parse-instr (body.routine* pc.routine*))
-;?         (prn op " " arg " -> " oarg)
         (let tmp
               (case op
                 ; arithmetic