From b08698f411add9055ccabb30a0b213420d8007c7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 7 Oct 2018 22:55:24 -0700
Subject: [PATCH] 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.
---
 src/runtime/unsyn.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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