diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-04 19:00:49 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-04 19:00:49 -0800 |
| commit | 1a85c63f4d69a22af803c679a49b821a2b876965 (patch) | |
| tree | a0472fe7f6cd85e7783871a3c832b4459a999b36 | |
| parent | e7d75e0bfa9015d18b8babc4ec9c5c1937658d69 (diff) | |
| download | mu-1a85c63f4d69a22af803c679a49b821a2b876965.tar.gz | |
229
| -rw-r--r-- | mu.arc | 4 |
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 |