From a6f5fd5afc427b77e25ebe4c3e713dcfd4d499cb Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 25 Nov 2018 17:09:37 -0800 Subject: [PATCH] Eliminate unnecessary copy of map-in-order. --- src/runtime/syntax.scm | 7 ------- 1 file changed, 7 deletions(-) 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 -- 2.25.1