diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-10 10:36:59 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-10 10:36:59 -0800 |
commit | 37682077b81d4a0d5b498dd7ccfb202d2f2d02df (patch) | |
tree | c27b840caa2c0e842e9f028e7df6f691f179dda0 | |
parent | b1a645ba8d0fe6907451587bc778819e7afdcc49 (diff) | |
download | mu-37682077b81d4a0d5b498dd7ccfb202d2f2d02df.tar.gz |
516
Cleanup trace a little.
-rw-r--r-- | mu.arc | 26 |
1 files changed, 6 insertions, 20 deletions
diff --git a/mu.arc b/mu.arc index e7d50c02..1cccdc9c 100644 --- a/mu.arc +++ b/mu.arc @@ -445,9 +445,7 @@ (case op ; arithmetic add - (do (trace "add" (m arg.0) " " (m arg.1)) (+ (m arg.0) (m arg.1)) - ) subtract (- (m arg.0) (m arg.1)) multiply @@ -470,9 +468,7 @@ equal (is (m arg.0) (m arg.1)) not-equal - (do (trace "neq" (m arg.0) " " (m arg.1)) (~is (m arg.0) (m arg.1)) - ) less-than (< (m arg.0) (m arg.1)) greater-than @@ -485,25 +481,15 @@ ; control flow jump (do (= pc.routine* (+ 1 pc.routine* (v arg.0))) - (trace "jump" "jumping to " pc.routine*) (continue)) jump-if - (let flag (m arg.0) - (trace "jump" "checking " flag) - (when (is t flag) - (= pc.routine* (+ 1 pc.routine* (v arg.1))) - (trace "jump" "jumping to " pc.routine*) - (continue))) + (when (m arg.0) + (= pc.routine* (+ 1 pc.routine* (v arg.1))) + (continue)) jump-unless ; convenient helper - (let flag (m arg.0) -;? (when ($.current-charterm) -;? (prn flag) -;? ($.charterm-read-key)) - (trace "jump" "checking ~" flag) - (when (no flag) - (= pc.routine* (+ 1 pc.routine* (v arg.1))) - (trace "jump" "jumping to " pc.routine*) - (continue))) + (unless (m arg.0) + (= pc.routine* (+ 1 pc.routine* (v arg.1))) + (continue)) ; data management: scalars, arrays, and-records (structs) copy |