Eliminate unnecessary copy of map-in-order.

diff --git a/src/runtime/syntax.scm b/src/runtime/syntax.scm
index a04a2d7cda7801a4bf126dc5f4d90de7aed7b5d5..e6641a6b469fcc5f00ed201f91fbe027258cecfa 100644 (file)
--- 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