From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 10 Feb 2018 04:48:23 +0000 (-0800)
Subject: Eliminate now-unused output/lambda and rename output/{named-,}lambda.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~263
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ddf78c777eb1d46120675f23a6d7dedc4f672560;p=mit-scheme.git

Eliminate now-unused output/lambda and rename output/{named-,}lambda.
---

diff --git a/src/runtime/mit-syntax.scm b/src/runtime/mit-syntax.scm
index b0d813a4d..0668f992a 100644
--- a/src/runtime/mit-syntax.scm
+++ b/src/runtime/mit-syntax.scm
@@ -74,9 +74,9 @@ USA.
 	   (map-mit-lambda-list (lambda (identifier)
 				  (bind-variable identifier senv))
 				bvl)))
-      (output/named-lambda name
-			   bvl
-			   (compile-body-item (classify-body body senv))))))
+      (output/lambda name
+		     bvl
+		     (compile-body-item (classify-body body senv))))))
 
 (define (compile-body-item item)
   (output/body (compile-body-items (item->list item))))
diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index b06f3b486..3adfca4c5 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -4505,7 +4505,6 @@ USA.
 	  output/lambda
 	  output/let
 	  output/letrec
-	  output/named-lambda
 	  output/quoted-identifier
 	  output/runtime-reference
 	  output/sequence
diff --git a/src/runtime/syntax-output.scm b/src/runtime/syntax-output.scm
index dcbdafed2..e14d35911 100644
--- a/src/runtime/syntax-output.scm
+++ b/src/runtime/syntax-output.scm
@@ -76,10 +76,7 @@ USA.
 (define (output/combination operator operands)
   (make-scode-combination operator operands))
 
-(define (output/lambda lambda-list body)
-  (output/named-lambda scode-lambda-name:unnamed lambda-list body))
-
-(define (output/named-lambda name lambda-list body)
+(define (output/lambda name lambda-list body)
   (call-with-values (lambda () (parse-mit-lambda-list lambda-list))
     (lambda (required optional rest)
       (make-lambda* name required optional rest body))))
@@ -97,7 +94,7 @@ USA.
   unspecific)
 
 (define (output/let names values body)
-  (output/combination (output/named-lambda scode-lambda-name:let names body)
+  (output/combination (output/lambda scode-lambda-name:let names body)
 		      values))
 
 (define (output/letrec names values body)