diff options
Diffstat (limited to 'Sil/Compile.icl')
| -rw-r--r-- | Sil/Compile.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Sil/Compile.icl b/Sil/Compile.icl index ca375b1..7857ff2 100644 --- a/Sil/Compile.icl +++ b/Sil/Compile.icl @@ -186,7 +186,7 @@ where Just i -> comment (toString st) *> gen app *> tell ['ABC'.Update_a 0 $ i+1, 'ABC'.Pop_a 1] *> shrinkStack 1 _ -> liftT $ Error $ UndefinedName n - gen (Application e) = comment "Application" *> gen e *> tell ['ABC'.Pop_a 1] + gen (Application e) = comment "Application" *> gen e *> tell ['ABC'.Pop_a 1] *> shrinkStack 1 gen (Return (Just e)) = comment "Return" *> gen e *> cleanup *> tell ['ABC'.Rtn] gen (Return Nothing) = comment "Return" *> cleanup *> tell ['ABC'.Rtn] gen (MachineStm s) = tell ['ABC'.Raw s] |