From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 10 Feb 2018 05:35:42 +0000 (-0800)
Subject: Revert change that broke the build.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~261
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3201e656a86e9fd31426f5247659a2ace9caf621;p=mit-scheme.git

Revert change that broke the build.
---

diff --git a/src/runtime/mit-syntax.scm b/src/runtime/mit-syntax.scm
index 87c19b46a..43d244ea2 100644
--- a/src/runtime/mit-syntax.scm
+++ b/src/runtime/mit-syntax.scm
@@ -64,8 +64,9 @@ USA.
   (compile-lambda scode-lambda-name:unnamed (cadr form) (cddr form) senv))
 
 (define (compiler:named-lambda form senv)
-  (syntax-check '(_ (symbol . mit-bvl) + form) form)
-  (compile-lambda (caadr form) (cdadr form) (cddr form) senv))
+  (syntax-check '(_ (identifier . mit-bvl) + form) form)
+  (compile-lambda (identifier->symbol (caadr form)) (cdadr form) (cddr form)
+		  senv))
 
 (define (compile-lambda name bvl body senv)
   (let ((senv (make-internal-senv senv)))