Eliminate unnecessary use of strip-syntactic-closures.

diff --git a/src/sos/instance.scm b/src/sos/instance.scm
index 29fded5c7e9119a54b72e5b3c80c96fb19efb453..c11109110faa86306bb49dcb9dc609ae94821e07 100644 (file)
--- 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))))))
 \f
 (define (instance-constructor class slot-names #!optional init-arg-names)
   (if (not (subclass? class <instance>))