mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

heap/literal fixes for repl-default-options

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2010-07-10 10:49:01 +02:00
parent a38dd31ffc
commit 2b12193df2
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
module/system/repl/common.scm
View file

@ -104,14 +104,15 @@ See <http://www.gnu.org/licenses/lgpl.html>, for more details.")
language options tm-stats gc-stats inport outport debug) language options tm-stats gc-stats inport outport debug)
(define repl-default-options (define repl-default-options
'((compile-options . (#:warnings (unbound-variable arity-mismatch))) (copy-tree
(trace . #f) '((compile-options . (#:warnings (unbound-variable arity-mismatch)))
(interp . #f))) (trace . #f)
(interp . #f))))
(define %make-repl make-repl) (define %make-repl make-repl)
(define* (make-repl lang #:optional debug) (define* (make-repl lang #:optional debug)
(%make-repl #:language (lookup-language lang) (%make-repl #:language (lookup-language lang)
#:options repl-default-options #:options (copy-tree repl-default-options)
#:tm-stats (times) #:tm-stats (times)
#:gc-stats (gc-stats) #:gc-stats (gc-stats)
#:inport (current-input-port) #:inport (current-input-port)