From d1ae1fd7646c2b81c3d23752f6956c7db888e916 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 9 May 2010 22:45:25 +0000
Subject: More cleanups

---
 src/interp/g-opt.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/g-opt.boot')

diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index 00b6e5a4..65368f84 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -106,7 +106,7 @@ optimize x ==
       y is [["XLAM",argl,body],:a] =>
         optimize rest x
         argl = "ignore" => x.first := body
-        if not (LENGTH argl<=LENGTH a) then
+        if not (# argl<= # a) then
           SAY '"length mismatch in XLAM expression"
           PRETTYPRINT y
         x.first := optimize optXLAMCond SUBLIS(pairList(argl,a),body)
-- 
cgit v1.2.3