From 46e0923d3526679701113c9ae01df1ba3a9ea0f5 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Wed, 16 Nov 2011 19:44:04 +0100
Subject: [PATCH] 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.
---
 module/system/repl/common.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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)
-- 
2.20.1