summaryrefslogtreecommitdiff
path: root/app/Load.hs
diff options
context:
space:
mode:
authorMirek Kratochvil <exa.exa@gmail.com>2023-02-26 18:10:10 +0100
committerMirek Kratochvil <exa.exa@gmail.com>2023-02-26 18:10:10 +0100
commit0d52bcf663ead766ae83c8f30f90beaea5790789 (patch)
tree7163b9365d4bafb9dfc70c2d50d1d3e1e1742232 /app/Load.hs
parent538dc0714afb48e399fb41342e943c7ff7feae65 (diff)
downloadprlg-0d52bcf663ead766ae83c8f30f90beaea5790789.tar.gz
prlg-0d52bcf663ead766ae83c8f30f90beaea5790789.tar.bz2
semicolon colons semi
Diffstat (limited to 'app/Load.hs')
-rw-r--r--app/Load.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/app/Load.hs b/app/Load.hs
index 85a6d03..f705114 100644
--- a/app/Load.hs
+++ b/app/Load.hs
@@ -39,8 +39,9 @@ intern prlgs = do
compile :: IR.PrlgInt -> PrlgEnv Code
compile prlgv = do
comma <- findAtom ","
+ semi <- findAtom ";"
cut <- findAtom "!"
- return $ C.seqGoals (C.compileGoals comma cut prlgv)
+ return $ C.compileGoals comma semi cut prlgv
expansion ::
(Int -> IR.PrlgInt -> IR.PrlgInt)