tisp

tiny lisp
git clone git://edryd.org/tisp
Log | Files | Refs | LICENSE

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)))