Update of /cvsroot/hcoop/domtool2/src
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv31808/src
Modified Files:
main.sml
Log Message:
Fix bug that was occurring when two regen's were run in a row
Index: main.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/main.sml,v
retrieving revision 1.66
retrieving revision 1.67
diff -C2 -d -r1.66 -r1.67
*** main.sml 29 Apr 2007 21:17:55 -0000 1.66
--- main.sml 29 Apr 2007 21:38:04 -0000 1.67
***************
*** 788,792 ****
--- 788,798 ----
fun regenerate context =
let
+ val _ = ErrorMsg.reset ()
+
val b = basis ()
+ val _ = if Env.lookupType b "string" then
+ print "Still got it\n"
+ else
+ print "Don't got it\n"
val () = Tycheck.disallowExterns ()
-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs
