diff options
Diffstat (limited to 'src/interp/pspad2.boot')
| -rw-r--r-- | src/interp/pspad2.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/pspad2.boot b/src/interp/pspad2.boot index e5af3357..4f5a729b 100644 --- a/src/interp/pspad2.boot +++ b/src/interp/pspad2.boot @@ -118,9 +118,9 @@ formatDeftranRepper([op,a],SEQflag) == a is ['LET,a,b] => formatDeftran(['LET,a,[op,b]],SEQflag) a is ['not,[op,a,b]] and (op1 := LASSOC(op,$pspadRelationAlist)) => formatDeftran [op1,a,b] - a is ['return,n,r] => + a is ["return",n,r] => MEMQ(opOf r,'(true false)) => a - ['return,n,[op,formatDeftran(r,SEQflag)]] + ["return",n,[op,formatDeftran(r,SEQflag)]] a is ['error,:.] => a [op,formatDeftran(a,SEQflag)] |