Mercurial > urweb

comparison src/urweb.grm @ 473:04b91c33ef54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Resolve all tag named in [Basis]; deal with C compilation failure without leaving /tmp files
author Adam Chlipala <adamc@hcoop.net>
date Sat, 08 Nov 2008 10:33:58 -0500
parents 20fab0e96217
children 6ee1c761818f
comparison
equal deleted inserted replaced
472:0f128cbc2758 473:04b91c33ef54
1067 tagHead: BEGIN_TAG (let 1067 tagHead: BEGIN_TAG (let
1068 val bt = tagIn BEGIN_TAG 1068 val bt = tagIn BEGIN_TAG
1069 val pos = s (BEGIN_TAGleft, BEGIN_TAGright) 1069 val pos = s (BEGIN_TAGleft, BEGIN_TAGright)
1070 in 1070 in
1071 (bt, 1071 (bt,
1072 (EVar ([], bt, Infer), pos)) 1072 (EVar (["Basis"], bt, Infer), pos))
1073 end) 1073 end)
1074 | tagHead LBRACE cexp RBRACE (#1 tagHead, (ECApp (#2 tagHead, cexp), s (tagHeadleft, RBRACEright))) 1074 | tagHead LBRACE cexp RBRACE (#1 tagHead, (ECApp (#2 tagHead, cexp), s (tagHeadleft, RBRACEright)))
1075 1075
1076 attrs : ([]) 1076 attrs : ([])
1077 | attr attrs (attr :: attrs) 1077 | attr attrs (attr :: attrs)