diff options
Diffstat (limited to 'src/interp/pspad1.boot')
| -rw-r--r-- | src/interp/pspad1.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/pspad1.boot b/src/interp/pspad1.boot index 9d6c301b..b478826c 100644 --- a/src/interp/pspad1.boot +++ b/src/interp/pspad1.boot @@ -524,7 +524,7 @@ pspadBindingPowerOf(key,x) == --binding powers can be found in file NEWAUX LISP x is ['REDUCE,:.] => (key='left => 130; key='right => 0) x is ["REPEAT",:.] => (key="left" => 130; key="right" => 0) - x is ["COND",:.] => (key="left" => 130; key="right" => 0) + x is ['%when,:.] => (key="left" => 130; key="right" => 0) x is [op,:argl] => if op is [a,:.] then op:= a op = 'SLASH => pspadBindingPowerOf(key,["/",:argl]) - 1 |