diff options
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) |