From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 6 Dec 2018 07:43:05 +0000 (-0800)
Subject: Eliminate unnecessary use of strip-syntactic-closures.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~23
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6ef98c87d155cb53b37b7e04ad9b271926cc12e9;p=mit-scheme.git

Eliminate unnecessary use of strip-syntactic-closures.
---

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