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

(limited to 'src/interp/parse.boot')

diff --git a/src/interp/parse.boot b/src/interp/parse.boot
index b4c77d10..6adb6fd1 100644
--- a/src/interp/parse.boot
+++ b/src/interp/parse.boot
@@ -76,7 +76,7 @@ parseTran x ==
     r:= parseConstruct ["construct",:argl]
     op is ["elt",:.] => [parseTran op,:rest r]
     r
-  symbol? u and (fn:= property(u,'parseTran)) => FUNCALL(fn,x)
+  symbol? u and (fn:= property(u,'parseTran)) => apply(fn,[x])
   [parseTran op,:parseTranList argl]
 
 parseType t ==
-- 
cgit v1.2.3