diff options
author | dos-reis <gdr@axiomatics.org> | 2013-06-01 07:35:18 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-06-01 07:35:18 +0000 |
commit | 64aeafac79d72f440b6546bae91583e6efd6b674 (patch) | |
tree | de419861e4625d20bc0e1c68f5db1590a50708b9 /src/interp/nlib.lisp | |
parent | de3a19c35df30298d323c5882e39931f329ea29e (diff) | |
download | open-axiom-64aeafac79d72f440b6546bae91583e6efd6b674.tar.gz |
Support --output in compiler, for bootstrapping stage.
Diffstat (limited to 'src/interp/nlib.lisp')
-rw-r--r-- | src/interp/nlib.lisp | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/interp/nlib.lisp b/src/interp/nlib.lisp index 79c19b64..901928e1 100644 --- a/src/interp/nlib.lisp +++ b/src/interp/nlib.lisp @@ -162,11 +162,9 @@ (defun rshut (rstream) (when (|libCodeStream| rstream) - (close (|libCodeStream| rstream)) - (setf (|libCodeStream| rstream) nil)) + (close (|libCodeStream| rstream))) (when (|libInsnStream| rstream) - (close (|libInsnStream| rstream)) - (setf (|libInsnStream| rstream) nil)) + (close (|libInsnStream| rstream))) (if (eq (|libIOMode| rstream) 'output) (write-indextable (|libIndexTable| rstream) (|libIndexStream| rstream))) (close (|libIndexStream| rstream))) |