Mercurial > urweb
comparison src/urweb.grm @ 1864:1aa9629e3a4c
Allow [where con] to descend within submodule structure; open submodule constraints while checking later signature items
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Mon, 19 Aug 2013 12:25:32 -0400 |
parents | 146ec8e90063 |
children | d6b0ee53dc93 |
comparison
equal
deleted
inserted
replaced
1863:32784d27b5bc | 1864:1aa9629e3a4c |
---|---|
800 | [x] => SgnVar x | 800 | [x] => SgnVar x |
801 | m :: ms => SgnProj (m, | 801 | m :: ms => SgnProj (m, |
802 List.take (ms, length ms - 1), | 802 List.take (ms, length ms - 1), |
803 List.nth (ms, length ms - 1)), | 803 List.nth (ms, length ms - 1)), |
804 s (mpathleft, mpathright)) | 804 s (mpathleft, mpathright)) |
805 | sgntm WHERE CON SYMBOL EQ cexp (SgnWhere (sgntm, SYMBOL, cexp), s (sgntmleft, cexpright)) | 805 | sgntm WHERE CON path EQ cexp (SgnWhere (sgntm, #1 path, #2 path, cexp), s (sgntmleft, cexpright)) |
806 | sgntm WHERE LTYPE SYMBOL EQ cexp(SgnWhere (sgntm, SYMBOL, cexp), s (sgntmleft, cexpright)) | 806 | sgntm WHERE LTYPE path EQ cexp (SgnWhere (sgntm, #1 path, #2 path, cexp), s (sgntmleft, cexpright)) |
807 | LPAREN sgn RPAREN (sgn) | 807 | LPAREN sgn RPAREN (sgn) |
808 | 808 |
809 cexpO : (NONE) | 809 cexpO : (NONE) |
810 | EQ cexp (SOME cexp) | 810 | EQ cexp (SOME cexp) |
811 | 811 |