From a32ae03addfd7f0ec794fcc4731a85f70c0473b1 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 20 Feb 2013 22:10:57 +0900 Subject: [PATCH] Not quite the right fix - will do this properly later. --- lib/chibi/repl.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/chibi/repl.scm b/lib/chibi/repl.scm index 25f511d8..5d625a8f 100644 --- a/lib/chibi/repl.scm +++ b/lib/chibi/repl.scm @@ -31,7 +31,7 @@ (define (complete-sexp? str) (call-with-input-string str (lambda (in) - (let lp () (or (eof-object? (read/ss in)) (lp)))))) + (let lp () (if (not (eof-object? (read/ss in))) (lp)))))) (define (read-line/complete-sexp in) (let lp ((res "")) @@ -46,7 +46,7 @@ (lp res)))))))) (define (buffer-complete-sexp? buf) - (guard (exn (else #f)) (complete-sexp? (buffer->string buf)))) + (complete-sexp? (buffer->string buf))) (define module? vector?) (define (module-env mod) (vector-ref mod 1))