exa/prlg
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

ensure BS doesn't get into goal code

Browse source
This commit is contained in:
Mirek Kratochvil 2023-01-07 18:12:46 +01:00
parent d50ec6414a
commit e39beb25ec
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
app/Compiler.hs
View file

@ -99,4 +99,5 @@ goal2struct x = x
struct2goal :: PrlgInt -> PrlgInt struct2goal :: PrlgInt -> PrlgInt
struct2goal (AtomI s) = CallI s [] struct2goal (AtomI s) = CallI s []
struct2goal x = x struct2goal call@(CallI _ _) = call
struct2goal _ = error "TODO."