From c432deec5454a073c645352d9dec674be28fa568 Mon Sep 17 00:00:00 2001
From: Alasdair Armstrong
Date: Wed, 25 Oct 2017 14:12:50 +0100
Subject: Generate ast.ml from ott file and update makefile.

Fix until loop not being counted as sugar
---
 language/l2.ott | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'language')

diff --git a/language/l2.ott b/language/l2.ott
index 579f26b3..f08b089b 100644
--- a/language/l2.ott
+++ b/language/l2.ott
@@ -682,7 +682,7 @@ exp :: 'E_' ::=
   | if exp1 then exp2                                   :: S :: ifnoelse {{ ichlo [[ if exp1 then exp2 else ( ) ]] }}
   | loop exp1 exp2 :: :: loop
   | while exp1 do exp2  ::  S :: while        {{ ichlo [[ loop while exp1 exp2 ]] }}
-  | repeat exp1 until exp2  S :: :: until     {{ ichlo [[ loop until exp2 exp1 ]] }}
+  | repeat exp1 until exp2 :: S :: until     {{ ichlo [[ loop until exp2 exp1 ]] }}
   | foreach ( id from exp1 to exp2 by exp3 in order ) exp4  ::   :: for {{ com loop }}
   | foreach ( id from exp1 to exp2 by exp3 ) exp4           :: S :: forup {{ ichlo [[ foreach id from exp1 to exp2 by exp3 in inc exp4 ]] }}
   | foreach ( id from exp1 to exp2 ) exp3                   :: S :: forupbyone  {{ ichlo [[ foreach id from exp1 to exp2 by 1 in inc exp4 ]] }}
-- 
cgit v1.2.3