diff options
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/compiler.tl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index 59c7601c..01955302 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -1901,9 +1901,12 @@ (add ^(jmp ,top)) (pop insns) (return)) - (((@(or frame dframe block handle catch uwprot) . @nil) . @nil) + (((@(or frame dframe block handle catch) . @nil) . @nil) (inc bal) (pop rest)) + (((uwprot . @nil) . @nil) + (inc bal 2) + (pop rest)) (((end . @nil) . @nil) (cond ((zerop bal) (add (pop rest))) |