diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 22:45:25 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 22:45:25 +0000 |
| commit | d1ae1fd7646c2b81c3d23752f6956c7db888e916 (patch) | |
| tree | 8efa5738e30f54559a22950f8b4c3dc33ab4c284 /src/interp/g-opt.boot | |
| parent | f42883e3da3524177b4a8c6f42c8e7b1646a6265 (diff) | |
| download | open-axiom-d1ae1fd7646c2b81c3d23752f6956c7db888e916.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/g-opt.boot')
| -rw-r--r-- | src/interp/g-opt.boot | 2 |
1 files changed, 1 insertions, 1 deletions
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) |