diff --git a/src/compiler/fggen/canon.scm b/src/compiler/fggen/canon.scm index 62db01a..5cf836e 100644 --- a/src/compiler/fggen/canon.scm +++ b/src/compiler/fggen/canon.scm @@ -819,7 +819,7 @@ ARBITRARY: The expression may be executed more than once. It ((dispatch-entry (sc-macro-transformer (lambda (form environment) - `(VECTOR-SET! DISPATCH-VECTOR ,(microcode-type (cadr form)) + `(VECTOR-SET! DISPATCH-VECTOR (MICROCODE-TYPE ',(cadr form)) ,(close-syntax (caddr form) environment))))) (dispatch-entries diff --git a/src/compiler/fggen/fggen.scm b/src/compiler/fggen/fggen.scm index a9f6cad..49117db 100644 --- a/src/compiler/fggen/fggen.scm +++ b/src/compiler/fggen/fggen.scm @@ -962,7 +962,7 @@ USA. (sc-macro-transformer (lambda (form environment) `(VECTOR-SET! DISPATCH-VECTOR - ,(microcode-type (cadr form)) + (MICROCODE-TYPE ',(cadr form)) ,(close-syntax (caddr form) environment))))) (dispatch-entries (sc-macro-transformer