Be more careful when checking for unquote in repl eval.

diff --git a/src/runtime/rep.scm b/src/runtime/rep.scm
index 48f2cbe9fe798e15371ecccc79ef2d803ced6bcb..da9b09f5b527310c5f20617c7b75ba551aca6b9c 100644 (file)
--- 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)))