From a91077596a525b0456a2c234df4a7b0cd1c6ff9f Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 12 Jan 2010 11:07:39 -0500
Subject: -path and -root command-line flags

---
 src/corify.sml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/corify.sml')

diff --git a/src/corify.sml b/src/corify.sml
index 26205e84..1637744e 100644
--- a/src/corify.sml
+++ b/src/corify.sml
@@ -1025,6 +1025,7 @@ fun corifyDecl mods (all as (d, loc : EM.span), st) =
                          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
                                   
-- 
cgit v1.2.3