From 3201e656a86e9fd31426f5247659a2ace9caf621 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 9 Feb 2018 21:35:42 -0800 Subject: [PATCH] Revert change that broke the build. --- src/runtime/mit-syntax.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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))) -- 2.25.1