From 6ef98c87d155cb53b37b7e04ad9b271926cc12e9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 5 Dec 2018 23:43:05 -0800
Subject: [PATCH] Eliminate unnecessary use of strip-syntactic-closures.

---
 src/sos/instance.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/sos/instance.scm b/src/sos/instance.scm
index 29fded5c7..c11109110 100644
--- a/src/sos/instance.scm
+++ b/src/sos/instance.scm
@@ -168,7 +168,7 @@ USA.
   (sc-macro-transformer
    (lambda (form environment)
      environment
-     (apply microcode-type (map strip-syntactic-closures (cdr form))))))
+     (apply microcode-type (map identifier->symbol (cdr form))))))
 
 (define (instance-constructor class slot-names #!optional init-arg-names)
   (if (not (subclass? class <instance>))
-- 
2.25.1