From 4dcf3f97d30a2b892716923ed4e916805ec87436 Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <gdr@axiomatics.org>
Date: Thu, 24 Dec 2015 18:05:41 -0800
Subject: Replace FUNCALL with apply.

---
 src/interp/ht-util.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp/ht-util.boot')

diff --git a/src/interp/ht-util.boot b/src/interp/ht-util.boot
index 197675ce..3b31c716 100644
--- a/src/interp/ht-util.boot
+++ b/src/interp/ht-util.boot
@@ -130,7 +130,7 @@ htpLabelFilteredInputString(htPage, label) ==
   props := LASSOC(label, htpInputAreaAlist htPage)
   props =>
     #props > 5 and props.6 =>
-      FUNCALL(symbolFunction props.6, props.0)
+      apply(symbolFunction props.6,[props.0])
     replacePercentByDollar props.0
   nil
 
@@ -494,7 +494,7 @@ typeCheckInputAreas htPage ==
 
 checkCondition(s1, string, condList) ==
   condList is [['Satisfies, pvar, pred]] =>
-    val := FUNCALL(pred, string)
+    val := apply(pred,[string])
     string? val => val
     ['(String), :wrap s1]
   condList isnt [['isDomain, pvar, pattern]] =>
-- 
cgit v1.2.3