cs: print results of -e command-line expressions

Also, wrap an individual prompt around each evaluation.
2019-01-19 08:16:32 -07:00 · 2019-01-19 08:16:32 -07:00 · 21712fecc9
commit 21712fecc9
parent 2fe2b7a8a7
1 changed files with 13 additions and 1 deletions
--- a/racket/src/cs/main.sps
+++ b/racket/src/cs/main.sps
@ -327,7 +327,19 @@
                (set! loads
                      (cons
                       (lambda ()
-                         (eval (read (open-input-string expr))))
+                         (call-with-values (lambda ()
+                                             (call-with-continuation-prompt
+                                              (lambda ()
+                                                (eval (read (open-input-string expr))))
+                                              (default-continuation-prompt-tag)
+                                              (lambda (proc)
+                                                ;; continue escape to set error status:
+                                                (abort-current-continuation (default-continuation-prompt-tag) proc))))
+                           (lambda vals
+                             (for-each (lambda (v)
+                                         (|#%app| (|#%app| current-print) v)
+                                         (flush-output))
+                                       vals))))
                       loads))
                (flags-loop rest-args (see saw 'non-config)))]
             [("-k")