tisp

commit dc9e1488c27c81efcdc9f36cc182e6c0cb21ae9f
parent 0dd37753d162135b18f0b85c7e67db0e18165a95
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Wed, 27 Mar 2019 01:12:46 -0700

Use ans symbol to get previous REPL result

Diffstat:
tibs/repl.tsp
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/tibs/repl.tsp b/tibs/repl.tsp
@@ -3,9 +3,9 @@
   ((lambda (expr)
      (cond ((= expr 'quit) (newline))
            (t (do
-                ((lambda (eval-expr)
-                   (cond ((not (void? eval-expr))
-                          (disp eval-expr))))
+                ((lambda (ans)
+                   (cond ((not (void? ans))
+                          (disp ans))))
                  (eval expr))
                 (repl)))))
    (read)))