From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 26 Nov 2018 01:09:37 +0000 (-0800)
Subject: Eliminate unnecessary copy of map-in-order.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~142
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a6f5fd5afc427b77e25ebe4c3e713dcfd4d499cb;p=mit-scheme.git

Eliminate unnecessary copy of map-in-order.
---

diff --git a/src/runtime/syntax.scm b/src/runtime/syntax.scm
index a04a2d7cd..e6641a6b4 100644
--- a/src/runtime/syntax.scm
+++ b/src/runtime/syntax.scm
@@ -340,12 +340,5 @@ USA.
    (lambda (closing-senv)
      (close-syntax (procedure closing-senv) senv))))
 
-(define (map-in-order procedure . lists)
-  (let loop ((lists lists) (values '()))
-    (if (pair? (car lists))
-	(loop (map cdr lists)
-	      (cons (apply procedure (map car lists)) values))
-	(reverse! values))))
-
 (define (smap procedure forms hist)
   (map procedure forms (subform-hists forms hist)))
\ No newline at end of file