From 0b9756f69a7eb13808ce70ddb834853b503950dd Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 5 Dec 2018 23:43:41 -0800
Subject: [PATCH] Implement spar-funcall to call a procedure and ignore its
 value.

---
 src/runtime/runtime.pkg       | 1 +
 src/runtime/syntax-parser.scm | 7 +++++++
 2 files changed, 8 insertions(+)

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))
-- 
2.25.1