Implement spar-funcall to call a procedure and ignore its value.

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index d55ad24472631fa3213be4cae2bd206bc2344075..594775b62db8bfb7c4f174ebb38b03889ff2c140 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -4718,6 +4718,7 @@ USA.
          spar-error
          spar-fail
          spar-filter-map-values
+         spar-funcall
          spar-if
          spar-map-values
          spar-match

diff --git a/src/runtime/syntax-parser.scm b/src/runtime/syntax-parser.scm
index 84ebcfbd60c6f21e58fb448d6c5a2bb17ad2c9bb..e0c730e92066b12e491372fbe3bcb709d40a61b7 100644 (file)
--- a/src/runtime/syntax-parser.scm
+++ b/src/runtime/syntax-parser.scm
@@ -220,6 +220,13 @@ USA.
                                  (%subst-args input senv output args)))
             failure)))
 
+(define (spar-funcall procedure . args)
+  (lambda (input senv output success failure)
+    (apply %call-out input senv
+          procedure
+          (%subst-args input senv output args))
+    (success input senv output failure)))
+
 (define (spar-error message . irritants)
   (lambda (input senv output success failure)
     (declare (ignore success failure))