fixing bug in with-input-from-file

femtolisp/aliases.scm

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

femtolisp/system.lsp

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