Dmitry Boulytchev 2020-11-24 01:51:11 +03:00
parent 1849c7029b
commit 8f01e5eb5b
2 changed files with 2 additions and 2 deletions

View file

@ -746,7 +746,7 @@ module Expr =
| %"if" e:parse[infix][Val] %"then" the:scope[infix][atr]
elif:(%"elif" parse[infix][Val] %"then" scope[infix][atr])*
els:(%"else" scope[infix][atr])? %"fi"
els:("else" s:scope[infix][atr] {Some s} | {isVoid atr} => empty {None}) %"fi"
{If (e, the, List.fold_right (fun (e, t) elif -> If (e, t, elif)) elif (match els with Some e -> e | _ -> materialize atr Skip))}
| %"while" e:parse[infix][Val] %"do" s:scope[infix][Void]
=> {isVoid atr} => %"od" {materialize atr (While (e, s))}

View file

@ -1 +1 @@
let version = "Version 1.00, 682258255, Mon Nov 16 16:20:19 2020 +0300"
let version = "Version 1.00, 1849c7029, Mon Nov 16 20:49:07 2020 +0300"