diff options
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))) |