Update of /cvsroot/hcoop/domtool2/src
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv21351/src
Modified Files:
describe.sml tycheck.sml
Log Message:
Improve some error messages
Index: tycheck.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/tycheck.sml,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** tycheck.sml 15 Dec 2007 21:05:10 -0000 1.22
--- tycheck.sml 24 Feb 2008 21:58:17 -0000 1.23
***************
*** 444,448 ****
end
| (TError, _) => t2
! | _ => (dte (WrongForm ("Action to be sequenced",
"action",
e2,
--- 444,448 ----
end
| (TError, _) => t2
! | _ => (dte (WrongForm ("First action to be sequenced",
"action",
e2,
***************
*** 451,455 ****
(TError, loc)))
| (TError, _) => t1
! | _ => (dte (WrongForm ("Action to be sequenced",
"action",
e1,
--- 451,455 ----
(TError, loc)))
| (TError, _) => t1
! | _ => (dte (WrongForm ("Second action to be sequenced",
"action",
e1,
***************
*** 503,507 ****
end
| (TError, _) => t2
! | _ => (dte (WrongForm ("Action to be sequenced",
"action",
e2,
--- 503,507 ----
end
| (TError, _) => t2
! | _ => (dte (WrongForm ("Body of local settings",
"action",
e2,
***************
*** 510,514 ****
(TError, loc)))
| (TError, _) => t1
! | _ => (dte (WrongForm ("Action to be sequenced",
"action",
e1,
--- 510,514 ----
(TError, loc)))
| (TError, _) => t1
! | _ => (dte (WrongForm ("Local settings",
"action",
e1,
Index: describe.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/describe.sml,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** describe.sml 15 Dec 2007 21:05:10 -0000 1.4
--- describe.sml 24 Feb 2008 21:58:17 -0000 1.5
***************
*** 138,142 ****
| WrongForm (place, form, e, t, ueo) =>
if form = "action" andalso will_be_action t then
! (ErrorMsg.error (SOME loc) "Not enough arguments passed to
configuration function.";
preface (" Expression so far:", p_exp e);
preface ("Next argument type:", p_typ (get_first_arg t)))
--- 138,142 ----
| WrongForm (place, form, e, t, ueo) =>
if form = "action" andalso will_be_action t then
! (ErrorMsg.error (SOME loc) ("Not enough arguments passed to
configuration function. (" ^ place ^ ")");
preface (" Expression so far:", p_exp e);
preface ("Next argument type:", p_typ (get_first_arg t)))
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs
