From 9ff7e8e8ce9215c1ba5d5ccfb1bba0939ab3f396 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 6 Mar 2018 20:52:32 -0800 Subject: [PATCH] Eliminate two unused procedures. --- src/runtime/runtime.pkg | 1 - src/runtime/syntax.scm | 8 +------- 2 files changed, 1 insertion(+), 8 deletions(-) diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg index 13e8a662f..f66f347ac 100644 --- a/src/runtime/runtime.pkg +++ b/src/runtime/runtime.pkg @@ -4431,7 +4431,6 @@ USA. initial-hist raw-identifier? serror - sfor-each smap subform-select) (export (runtime syntax low) diff --git a/src/runtime/syntax.scm b/src/runtime/syntax.scm index 8ccc85352..a8df6d6ee 100644 --- a/src/runtime/syntax.scm +++ b/src/runtime/syntax.scm @@ -332,10 +332,4 @@ USA. (reverse! values)))) (define (smap procedure forms hist) - (map procedure forms (subform-hists forms hist))) - -(define (smap-in-order procedure forms hist) - (map-in-order procedure forms (subform-hists forms hist))) - -(define (sfor-each procedure forms hist) - (for-each procedure forms (subform-hists forms hist))) \ No newline at end of file + (map procedure forms (subform-hists forms hist))) \ No newline at end of file -- 2.25.1