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 4b17f3c1..032bca6a 100644 --- a/src/interp/pspad1.boot +++ b/src/interp/pspad1.boot @@ -267,7 +267,7 @@ format(x,:options) == op is ['elt,name,p] and UPPER_-CASE_-P (STRINGIMAGE opOf name).0 => formatDollar(name,p,argl) op = 'elt and UPPER_-CASE_-P (STRINGIMAGE opOf CAR argl).0 => - formatDollar1(CAR argl,CADR argl) + formatDollar1(CAR argl,second argl) fn:= GETL(op,"PSPAD") => formatFn(fn,x,$m,$c) if op in '(AND OR NOT) then op:= DOWNCASE op n=1 and GETL(op,'Nud) and (lbp:= formatOpBindingPower(op,"Nud","left")) => |