diff options
| author | Mirek Kratochvil <exa.exa@gmail.com> | 2022-11-26 16:03:45 +0100 |
|---|---|---|
| committer | Mirek Kratochvil <exa.exa@gmail.com> | 2022-11-26 16:03:45 +0100 |
| commit | 1cca8b8dce327369a81d97e68129aa3f1da39a33 (patch) | |
| tree | 21b2245e152aba4132639bce9cee75f90bb9c2d2 /app/Compiler.hs | |
| parent | 83e1cb5cc71e28adc444d8ea70b9530e06a64f08 (diff) | |
| download | prlg-1cca8b8dce327369a81d97e68129aa3f1da39a33.tar.gz prlg-1cca8b8dce327369a81d97e68129aa3f1da39a33.tar.bz2 | |
assert actually recompiles
Diffstat (limited to 'app/Compiler.hs')
| -rw-r--r-- | app/Compiler.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/app/Compiler.hs b/app/Compiler.hs index 6ea6cbc..efa641c 100644 --- a/app/Compiler.hs +++ b/app/Compiler.hs @@ -48,7 +48,7 @@ compileGoals andop cut = go' go x = [compileGoal x] compileGoal :: PrlgInt -> Code -compileGoal = compileArg +compileGoal = compileArg . struct2goal compileArg :: PrlgInt -> Code compileArg (CallI s args) = U (Struct s) : concatMap compileArg args |