Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 06:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Not quite the right fix - will do this properly later.

Browse source
This commit is contained in:
Alex Shinn 2013-02-20 22:10:57 +09:00
parent cd0a6bd41f
commit a32ae03add
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/repl.scm
View file

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