From 2b12193df297be2051e816def21f75bfd358c8db Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sat, 10 Jul 2010 10:49:01 +0200
Subject: [PATCH] heap/literal fixes for repl-default-options

* module/system/repl/common.scm (repl-default-options): Heap-allocate
  the repl-default-options, to avoid mutating a literal.
  (make-repl): Copy repl-default-options.
---
 module/system/repl/common.scm | 9 +++++----
 1 file 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)