lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixing bug in with-input-from-file

This commit is contained in:
JeffBezanson 2009-08-09 18:27:05 +00:00
parent 929ec92a65
commit b59dcdc877
3 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
femtolisp/aliases.scm
View File

@ -135,7 +135,7 @@
(define (with-input-from-file name thunk) (define (with-input-from-file name thunk)
(let ((f (file name :read))) (let ((f (file name :read)))
(unwind-protect (unwind-protect
(with-output-to f (thunk)) (with-input-from f (thunk))
(io.close f)))) (io.close f))))
(define (call-with-input-file name proc) (define (call-with-input-file name proc)

2
femtolisp/flisp.boot
View File

File diff suppressed because one or more lines are too long

3
femtolisp/system.lsp
View File

@ -552,6 +552,9 @@
(define-macro (with-output-to stream . body) (define-macro (with-output-to stream . body)
`(with-bindings ((*output-stream* ,stream)) `(with-bindings ((*output-stream* ,stream))
,@body)) ,@body))
(define-macro (with-input-from stream . body)
`(with-bindings ((*input-stream* ,stream))
,@body))
; vector functions ------------------------------------------------------------ ; vector functions ------------------------------------------------------------