Tweak.

diff --git a/src/runtime/mit-macros.scm b/src/runtime/mit-macros.scm
index 897416b1230ebecadb700e287feda46a3e360721..ceb4b26b5d417dcc5a70a860ab515e97e4c8b8e5 100644 (file)
--- a/src/runtime/mit-macros.scm
+++ b/src/runtime/mit-macros.scm
@@ -266,11 +266,8 @@ USA.
          (,(close 'define) ,name ,proc)
          ,name)
         ,@vals))
-      ((letrec)
-       `((,(close 'letrec) ((,name ,proc)) ,name)
-        ,@vals))
-      ((letrec*)
-       `((,(close 'letrec*) ((,name ,proc)) ,name)
+      ((letrec letrec*)
+       `((,(close named-let-strategy) ((,name ,proc)) ,name)
         ,@vals))
       ((fixed-point)
        (let ((iter (new-identifier 'iter))