From 094e16ae834eaf254a85781d759e0399a9269fb1 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 25 Jun 2010 03:44:16 +0000
Subject: 	* interp/c-util.boot (expandableDefinition?): Try to make it a
 	forwarding function if possible.

---
 src/interp/c-util.boot | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/interp')

diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index dc3ba3af..e79aba6b 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -1221,7 +1221,9 @@ expandableDefinition?(vars,body) ==
       or semiSimpleRelativeTo?(body,$simpleVMoperators) =>
                 usesVariablesLinearly?(body,vars')
     false
-  expand? => ["XLAM",vars',body]
+  expand? =>
+    body is [fun,: =vars'] and symbol? fun => fun
+    ['XLAM,vars',body]
   nil
 
 ++ Replace all SPADCALLs to operations defined in the current
-- 
cgit v1.2.3