mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-03 16:20:39 +02:00
Code Activity

fix bug in make-repl when lang is actually a language

Browse source 
* module/system/repl/common.scm (make-repl): Fix to accept language
  objects in addition to symbols.  Fixes http://debbugs.gnu.org/9857.
  Thanks to Tristan Colgate for the report.
This commit is contained in:
Andy Wingo 2011-11-16 19:44:04 +01:00
parent 936d0bf321
commit 46e0923d35
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -134,7 +134,9 @@ See <http://www.gnu.org/licenses/lgpl.html>, for more details.")
(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 (if (language? lang)
lang
(lookup-language lang))
#:options (copy-tree repl-default-options) #:options (copy-tree repl-default-options)
#:tm-stats (times) #:tm-stats (times)
#:gc-stats (gc-stats) #:gc-stats (gc-stats)