diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-07 11:31:46 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-07 11:31:46 -0800 |
| commit | 55cf3fb58acb70494664c5d0bc5d63bf993b0b7b (patch) | |
| tree | fbae7ed8efc4c6dd0ef6d7d742ff1382e67f077d | |
| parent | d08f480fde67fe427c3da99bd4fbb83e59e950cd (diff) | |
| download | mu-55cf3fb58acb70494664c5d0bc5d63bf993b0b7b.tar.gz | |
249
I've been meaning to fix that misleading label for some time now..
| -rw-r--r-- | mu.arc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mu.arc b/mu.arc index ecce0406..57bcfe7b 100644 --- a/mu.arc +++ b/mu.arc @@ -612,7 +612,7 @@ (each instr instrs (if (~is 'begin instr.0) (do - (trace "cvt0" pc " " instr " -- " locs) + (trace "c{0" pc " " instr " -- " locs) (++ pc)) ; hack: racket replaces curlies with parens, so we need the ; keyword begin to delimit blocks. @@ -634,7 +634,7 @@ (cut instr 0 delim)) op (instr (+ delim 1)) arg (cut instr (+ delim 2))) - (trace "cvt1" pc " " op " " oarg) + (trace "c{1" pc " " op " " oarg) (case op begin (do |