diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index ea9b932d..572cb396 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -1559,10 +1559,9 @@ ((neq obj err-ret))) (compile-form (sys:expand* obj))) (let ((*print-circle* t) - (*package* (make-package "$"))) - (unwind-protect - (prinl out.(get) out-stream) - (delete-package *package*)))) + (*package* (sys:make-anon-package))) + (prinl out.(get) out-stream) + (delete-package *package*))) (let ((parser (sys:get-parser in-stream))) (when (> (sys:parser-errors parser) 0) |