# HG changeset patch
# User Adam Chlipala <adam@chlipala.net>
# Date 1319201490 14400
# Node ID ec466c1e082aa76a8b8fc0636704c214af4b7c3f
# Parent  e1f4ac9ca34bdb3306423f2044748e5651ca78f1
Catch UnboundNamed exceptions that arise from missing signature items

diff -r e1f4ac9ca34b -r ec466c1e082a src/elaborate.sml
--- a/src/elaborate.sml	Fri Oct 21 08:36:10 2011 -0400
+++ b/src/elaborate.sml	Fri Oct 21 08:51:30 2011 -0400
@@ -3265,7 +3265,8 @@
 
       | _ => sgnError env (SgnWrongForm (strLoc, sgn1, sgn2)))
 
-and subSgn env = subSgn' (ref IM.empty) env
+and subSgn env x y z = subSgn' (ref IM.empty) env x y z
+    handle e as E.UnboundNamed _ => if ErrorMsg.anyErrors () then () else raise e
 
 and positive self =
     let
diff -r e1f4ac9ca34b -r ec466c1e082a tests/ubn.ur
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/ubn.ur	Fri Oct 21 08:51:30 2011 -0400
@@ -0,0 +1,8 @@
+con e = []
+structure B : sig
+end = struct
+end
+open B
+
+fun main () =
+ return <xml></xml>
diff -r e1f4ac9ca34b -r ec466c1e082a tests/ubn.urs
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/ubn.urs	Fri Oct 21 08:51:30 2011 -0400
@@ -0,0 +1,3 @@
+val main : unit -> transaction page
+con a = []
+con e = a