From 9242dca651e1ec5ba2d593a573fabe5f5673d2b4 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 21 Mar 2018 16:52:30 -0700
Subject: [PATCH] Tweak.

---
 src/runtime/mit-macros.scm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

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