about summary refs log tree commit diff stats
path: root/mu.arc
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-02-24 00:32:23 -0800
committerKartik K. Agaram <vc@akkartik.com>2015-02-24 00:32:23 -0800
commit6333b7614e6c78e2dd4e61f65e73109238ece6ac (patch)
tree2ac1a5659d02871c6e652c26bbc27b490358158a /mu.arc
parent3d2845f2944ef92a12b9004624683b7434423f10 (diff)
downloadmu-6333b7614e6c78e2dd4e61f65e73109238ece6ac.tar.gz
830
Diffstat (limited to 'mu.arc')
-rw-r--r--mu.arc18
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))