Mercurial > urweb
diff src/lacweb.grm @ 61:48b6d2c3df46
open
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sun, 22 Jun 2008 19:34:35 -0400 |
| parents | abb2b32c19fb |
| children | 9f89f0b00b84 |
line wrap: on
line diff
--- a/src/lacweb.grm Sun Jun 22 19:10:47 2008 -0400 +++ b/src/lacweb.grm Sun Jun 22 19:34:35 2008 -0400 @@ -123,6 +123,9 @@ (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 @@ 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),