diff options
Diffstat (limited to 'src/interp/i-output.boot')
| -rw-r--r-- | src/interp/i-output.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index 833f070f..bff7f613 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -456,9 +456,9 @@ outputTranSEQ ['SEQ,:l,exitform] == ['SC,:[outputTran x for x in l],outputTran exitform] outputTranIf ['IF,x,y,z] == - y = 'noBranch => + y = '%noBranch => ['CONCATB,'if,['CONCATB,'not,outputTran x],'then,outputTran z] - z = 'noBranch => + z = '%noBranch => ['CONCATB,'if,outputTran x,'then,outputTran y] y' := outputTran y z' := outputTran z |