From 4b4a0dc6ce39b7ee849f81ddf66355713f0cbf27 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 9 May 2009 19:34:42 +0000
Subject: 	* interp/compiler.boot (compApplication): Tidy.

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

(limited to 'src/interp')

diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot
index c45a5ce8..e51da828 100644
--- a/src/interp/compiler.boot
+++ b/src/interp/compiler.boot
@@ -706,8 +706,10 @@ compApplication(op,argl,m,T) ==
               for x in argl for m in argml]
     argTl = "failed" => nil
     form:=
-      atom T.expr and not (MEMQ(op,$formalArgList) or MEMQ(T.expr,$formalArgList)) =>
-        emitLocalCallInsn(T.expr,[a.expr for a in argTl],e)
+      atom T.expr and 
+        not (MEMQ(op,$formalArgList) or MEMQ(T.expr,$formalArgList)) and
+          null get(T.expr,"value",e) =>
+            emitLocalCallInsn(T.expr,[a.expr for a in argTl],e)
       ['call, ['applyFun, T.expr], :[a.expr for a in argTl]]
     coerce([form, retm, e],resolve(retm,m))
   op = 'elt => nil
-- 
cgit v1.2.3