From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 7 Mar 2018 04:52:32 +0000 (-0800)
Subject: Eliminate two unused procedures.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~215
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9ff7e8e8ce9215c1ba5d5ccfb1bba0939ab3f396;p=mit-scheme.git

Eliminate two unused procedures.
---

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