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/bc-solve.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/bc-solve.boot')

diff --git a/src/interp/bc-solve.boot b/src/interp/bc-solve.boot
index ce1fce75..839fc8ca 100644
--- a/src/interp/bc-solve.boot
+++ b/src/interp/bc-solve.boot
@@ -207,7 +207,7 @@ bcMakeLinearEquations(i,number)==
       
 
 bcInputEquationsEnd htPage ==
-  fun := htpProperty(htPage, 'exitFunction) => FUNCALL(fun,htPage)
+  fun := htpProperty(htPage, 'exitFunction) => apply(fun,[htPage])
   systemError nil
 
 bcSolveEquationsNumerically(htPage,p) ==
-- 
cgit v1.2.3