From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 21 Mar 2018 23:52:30 +0000 (-0700)
Subject: Tweak.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~194
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9242dca651e1ec5ba2d593a573fabe5f5673d2b4;p=mit-scheme.git

Tweak.
---

diff --git a/src/runtime/mit-macros.scm b/src/runtime/mit-macros.scm
index 897416b12..ceb4b26b5 100644
--- 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))