diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-02-24 00:32:23 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-02-24 00:32:23 -0800 |
commit | 6333b7614e6c78e2dd4e61f65e73109238ece6ac (patch) | |
tree | 2ac1a5659d02871c6e652c26bbc27b490358158a | |
parent | 3d2845f2944ef92a12b9004624683b7434423f10 (diff) | |
download | mu-6333b7614e6c78e2dd4e61f65e73109238ece6ac.tar.gz |
830
-rw-r--r-- | mu.arc | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/mu.arc b/mu.arc index 42efca71..a50573ca 100644 --- a/mu.arc +++ b/mu.arc @@ -1717,15 +1717,6 @@ (freeze-another ',name) (run-more ',name))) -; repl -(def run-interactive (stmt) - ; careful to avoid re-processing functions and adding noise to traces - (= function*!interactive (convert-labels:convert-braces:tokenize-args (list stmt))) - (add-next-space-generator function*!interactive 'interactive) - (= location*!interactive (assign-names-to-location function*!interactive 'interactive location*!interactive)) - (replace-names-with-location function*!interactive 'interactive) - (run-more 'interactive)) - (def routine-that-ran (f) (find [some [is f _!fn-name] stack._] completed-routines*)) @@ -3068,6 +3059,15 @@ ;? (prn routine) )) ) + +; repl +(def run-interactive (stmt) + ; careful to avoid re-processing functions and adding noise to traces + (= function*!interactive (convert-labels:convert-braces:tokenize-args (list stmt))) + (add-next-space-generator function*!interactive 'interactive) + (= location*!interactive (assign-names-to-location function*!interactive 'interactive location*!interactive)) + (replace-names-with-location function*!interactive 'interactive) + (run-more 'interactive)) (when (no cdr.argv) ; interactive mode (whilet expr (do (pr "mu> ") (read)) |