diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-06-22 19:34:35 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-06-22 19:34:35 -0400 |
| commit | 911980c1969a852451085577ebcc002f264c7ffa (patch) | |
| tree | 65cd3033a1c8bdca60de9ea17b8ed35b1b843071 /src/lacweb.grm | |
| parent | c329cf497908879f592308fdd1d20a5b631ca2df (diff) | |
open
Diffstat (limited to 'src/lacweb.grm')
| -rw-r--r-- | src/lacweb.grm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/lacweb.grm b/src/lacweb.grm index 4c3ed51e..e36630ae 100644 --- a/src/lacweb.grm +++ b/src/lacweb.grm @@ -123,6 +123,9 @@ decl : CON SYMBOL EQ cexp (DCon (SYMBOL, NONE, cexp), s (CONleft, (StrFun (CSYMBOL2, sgn1, SOME sgn2, str), s (FUNCTORleft, strright))), s (FUNCTORleft, strright)) | EXTERN STRUCTURE CSYMBOL COLON sgn (DFfiStr (CSYMBOL, sgn), s (EXTERNleft, sgnright)) + | OPEN mpath (case mpath of + [] => raise Fail "Impossible mpath parse [1]" + | m :: ms => (DOpen (m, ms), s (OPENleft, mpathright))) sgn : sgntm (sgntm) | FUNCTOR LPAREN CSYMBOL COLON sgn RPAREN COLON sgn @@ -130,7 +133,7 @@ sgn : sgntm (sgntm) sgntm : SIG sgis END (SgnConst sgis, s (SIGleft, ENDright)) | mpath (case mpath of - [] => raise Fail "Impossible mpath parse" + [] => raise Fail "Impossible mpath parse [2]" | [x] => SgnVar x | m :: ms => SgnProj (m, List.take (ms, length ms - 1), |