From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 6 Dec 2018 07:43:41 +0000 (-0800)
Subject: Implement spar-funcall to call a procedure and ignore its value.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~22
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0b9756f69a7eb13808ce70ddb834853b503950dd;p=mit-scheme.git

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

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index d55ad2447..594775b62 100644
--- 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 84ebcfbd6..e0c730e92 100644
--- 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))