From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 8 Oct 2018 05:55:24 +0000 (-0700)
Subject: Don't wrap a compiled-expression object in scode-quote.
X-Git-Tag: mit-scheme-pucked-9.2.19~2^2~6
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b08698f411add9055ccabb30a0b213420d8007c7;p=mit-scheme.git

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 b535b53ff..1269001a6 100644
--- 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)))