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 b0d813a4d83e00323df6e1001fa7b24f98180ac3..0668f992a03c23a330f66865143e93a45ae8d94c 100644 (file)
--- 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 b06f3b4867f058cce0f35722472a526cc99747d2..3adfca4c5b4ed93c5bb52b3bd67b1d27f54a600d 100644 (file)
--- 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 dcbdafed2a1174461d48740a41d73c86e649bfba..e14d3591108030b4b1e6ce466617bac35f1f9008 100644 (file)
--- 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)
 \f
 (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)