diff options
-rw-r--r-- | module/system/repl/common.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/module/system/repl/common.scm b/module/system/repl/common.scm index 9d71e9939..0c42ea7dd 100644 --- a/module/system/repl/common.scm +++ b/module/system/repl/common.scm @@ -104,14 +104,15 @@ See <http://www.gnu.org/licenses/lgpl.html>, for more details.") language options tm-stats gc-stats inport outport debug) (define repl-default-options - '((compile-options . (#:warnings (unbound-variable arity-mismatch))) - (trace . #f) - (interp . #f))) + (copy-tree + '((compile-options . (#:warnings (unbound-variable arity-mismatch))) + (trace . #f) + (interp . #f)))) (define %make-repl make-repl) (define* (make-repl lang #:optional debug) (%make-repl #:language (lookup-language lang) - #:options repl-default-options + #:options (copy-tree repl-default-options) #:tm-stats (times) #:gc-stats (gc-stats) #:inport (current-input-port) |