Eliminate two unused procedures.

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 13e8a662ff2d832bbf3fb7ff886a0886a423ad09..f66f347accfed1e8da21fbda586312c6f6201ce9 100644 (file)
--- 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 8ccc853525317b4ff775fa5e0e516e2c0a30ecf9..a8df6d6ee3f54f077272ffa886b42182e3962ca9 100644 (file)
--- 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