From 21712fecc9526a0c0c1ad331b0bc0a3f2ad2ac3b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 19 Jan 2019 08:16:32 -0700
Subject: [PATCH] cs: print results of `-e` command-line expressions

Also, wrap an individual prompt around each evaluation.
---
 racket/src/cs/main.sps | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/racket/src/cs/main.sps b/racket/src/cs/main.sps
index 52121e5bf5..c97ebca390 100644
--- 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")