From 0d52bcf663ead766ae83c8f30f90beaea5790789 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sun, 26 Feb 2023 18:10:10 +0100
Subject: semicolon colons semi

---
 app/Load.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'app/Load.hs')

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)
-- 
cgit v1.2.3