Mercurial > urweb

diff src/corify.sml @ 1126:c01fb6f1b31f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
-path and -root command-line flags
author Adam Chlipala <adamc@hcoop.net>
date Tue, 12 Jan 2010 11:07:39 -0500
parents e06bfeb6c2aa
children 7fdea74b1dd9
line wrap: on
line diff
--- a/src/corify.sml	Tue Jan 12 10:33:03 2010 -0500
+++ b/src/corify.sml	Tue Jan 12 11:07:39 2010 -0500
@@ -1025,6 +1025,7 @@
                          val (wds, eds) = foldl wrapSgi ([], []) sgis
                          val wrapper = (L.StrConst wds, loc)
                          val mst = St.lookupStrById st m
+                         val mst = foldl St.lookupStrByName mst ms
                          val (ds, {inner, outer}) = corifyStr (St.name mst) (wrapper, st)
                          val st = St.bindStr outer "wrapper" en inner