diff options
| -rw-r--r-- | mu.arc | 10 | ||||
| -rw-r--r-- | trace.arc.t | 1 |
2 files changed, 4 insertions, 7 deletions
diff --git a/mu.arc b/mu.arc index df18ef0c..7f4ed6fa 100644 --- a/mu.arc +++ b/mu.arc @@ -252,10 +252,11 @@ ((rep routine) 'call-stack)) (def push-stack (routine op) - (push (obj fn-name op pc 0 caller-arg-idx 0) + (push (obj fn-name op pc 0 caller-arg-idx 0 t0 (msec)) rep.routine!call-stack)) (def pop-stack (routine) + (update-time top.routine!fn-name (msec)) (pop rep.routine!call-stack)) (def top (routine) @@ -2720,12 +2721,7 @@ (loop) } ; now back to where the cursor was - { begin - (done?:boolean <- lesser-or-equal col:integer-address/deref orig-col:integer) - (break-if done?:boolean) - (cursor-left x:terminal-address) - (loop) - } + (col:integer-address/deref <- copy orig-col:integer) (reply) } (clear-line-on-host) diff --git a/trace.arc.t b/trace.arc.t index b471ae86..a26093a3 100644 --- a/trace.arc.t +++ b/trace.arc.t @@ -538,3 +538,4 @@ schedule: done with routine") (prn "F - process-key: navigation moves between top-level lines only")) (reset) +;? (print-times) ;? 1 |