Don't wrap a compiled-expression object in scode-quote.

It only causes confusion when expecting a bare expression and instead see it as
quoted.

diff --git a/src/runtime/unsyn.scm b/src/runtime/unsyn.scm
index b535b53ffe33e97bcd24401f2a0d40d624f648ac..1269001a63851aa8a37c0835fc4d88d00c8edc87 100644 (file)
--- a/src/runtime/unsyn.scm
+++ b/src/runtime/unsyn.scm
@@ -116,7 +116,7 @@ USA.
        ((compiled-expression? object)
         (let ((scode (compiled-expression/scode object)))
           (if (eq? scode object)
-              `(scode-quote ,object)
+              object
               (unsyntax-object environment scode))))
        (else
         object)))