diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-11-16 19:44:04 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-11-16 19:49:50 +0100 |
| commit | 46e0923d3526679701113c9ae01df1ba3a9ea0f5 (patch) | |
| tree | f87d35d3aba8bcdaaf71c5f78ec50d418d9ad1a7 /module | |
| parent | 936d0bf3218bda64a46679524cc0149d11883d43 (diff) | |
fix bug in make-repl when lang is actually a language
* 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.
Diffstat (limited to 'module')
| -rw-r--r-- | module/system/repl/common.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/system/repl/common.scm b/module/system/repl/common.scm index 718cc0b8c..6c6ee2ae7 100644 --- a/module/system/repl/common.scm +++ b/module/system/repl/common.scm @@ -134,7 +134,9 @@ See <http://www.gnu.org/licenses/lgpl.html>, for more details.") (define %make-repl make-repl) (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) #:tm-stats (times) #:gc-stats (gc-stats) |