diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-04 18:33:07 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-04 18:33:07 -0800 |
| commit | ebdb363695503e32d9003319ca33dde4b691e24f (patch) | |
| tree | 7c440036bfbc2f962eef4b356e92f71154a5a45a | |
| parent | da2a15e7d3f3659d0eb06856364d7265a13ca628 (diff) | |
| download | mu-ebdb363695503e32d9003319ca33dde4b691e24f.tar.gz | |
227
| -rw-r--r-- | mu.arc | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/mu.arc b/mu.arc index 7a5e3cab..774da3e0 100644 --- a/mu.arc +++ b/mu.arc @@ -359,7 +359,7 @@ (pop-stack routine*) (if empty.routine* (return ninstrs)) (++ pc.routine*)) - (trace "run" "-- " canon.memory*) + (trace "run" "-- " int-canon.memory*) (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*)) @@ -830,6 +830,9 @@ (def canon (table) (sort (compare < string:car) (as cons table))) +(def int-canon (table) + (sort (compare < car) (as cons table))) + ;; after loading all files, start at 'main' (reset) (awhen cdr.argv |