From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 22 Oct 2019 03:43:19 +0000 (-0700)
Subject: Be more careful when checking for unquote in repl eval.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~29
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=abb749f59f9dfd158c8192baed0038954439e075;p=mit-scheme.git

Be more careful when checking for unquote in repl eval.
---

diff --git a/src/runtime/rep.scm b/src/runtime/rep.scm
index 48f2cbe9f..da9b09f5b 100644
--- a/src/runtime/rep.scm
+++ b/src/runtime/rep.scm
@@ -476,7 +476,9 @@ USA.
 (define hook/repl-eval)
 (define (default/repl-eval s-expression environment repl)
   (if (and (pair? s-expression)
-	   (eq? 'unquote (car s-expression)))
+	   (eq? 'unquote (car s-expression))
+	   (pair? (cdr s-expression))
+	   (null? (cddr s-expression)))
       (let ((env (->environment '(user))))
 	(%repl-scode-eval (syntax (cadr s-expression) env) env repl))
       (%repl-scode-eval (syntax s-expression environment) environment repl)))