From ddf78c777eb1d46120675f23a6d7dedc4f672560 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 9 Feb 2018 20:48:23 -0800
Subject: [PATCH] Eliminate now-unused output/lambda and rename
 output/{named-,}lambda.

---
 src/runtime/mit-syntax.scm    | 6 +++---
 src/runtime/runtime.pkg       | 1 -
 src/runtime/syntax-output.scm | 7 ++-----
 3 files changed, 5 insertions(+), 9 deletions(-)

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