Mercurial > urweb

comparison src/explify.sml @ 44:a9f3ce2d1b9b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Elaborating functor applications
author Adam Chlipala <adamc@hcoop.net>
date Thu, 19 Jun 2008 17:04:08 -0400
parents b3fbbc6cb1e5
children 3c1ce1b4eb3d
comparison
equal deleted inserted replaced
43:d94c484337d0 44:a9f3ce2d1b9b
108 case str of 108 case str of
109 L.StrConst ds => (L'.StrConst (map explifyDecl ds), loc) 109 L.StrConst ds => (L'.StrConst (map explifyDecl ds), loc)
110 | L.StrVar n => (L'.StrVar n, loc) 110 | L.StrVar n => (L'.StrVar n, loc)
111 | L.StrProj (str, s) => (L'.StrProj (explifyStr str, s), loc) 111 | L.StrProj (str, s) => (L'.StrProj (explifyStr str, s), loc)
112 | L.StrFun _ => raise Fail "Explify functor" 112 | L.StrFun _ => raise Fail "Explify functor"
113 | L.StrApp _ => raise Fail "Explify functor app"
113 | L.StrError => raise Fail ("explifyStr: StrError at " ^ EM.spanToString loc) 114 | L.StrError => raise Fail ("explifyStr: StrError at " ^ EM.spanToString loc)
114 115
115 val explify = map explifyDecl 116 val explify = map explifyDecl
116 117
117 end 118 end