[Yap-commits] CVS: pl boot.yap, 1.187, 1.188 messages.yap, 1.12, 1.13 statistics.yap, 1.9, 1.10

[Vitor S. C. <vs...@us...>]

Update of /cvsroot/yap/pl
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv19140/pl

Modified Files:
	boot.yap messages.yap statistics.yap 
Log Message:
fix stack growth in globals
fix compilation messages


Index: boot.yap
===================================================================
RCS file: /cvsroot/yap/pl/boot.yap,v
retrieving revision 1.187
retrieving revision 1.188
diff -u -r1.187 -r1.188
--- boot.yap	26 May 2008 09:16:24 -0000	1.187
+++ boot.yap	16 Jun 2008 21:22:15 -0000	1.188
@@ -104,7 +104,7 @@
 	nb_setval('$endif',off),
 	nb_setval('$consulting_file',[]),
 	nb_setval('$consulting',false),
-	nb_setval('$included_file','').
+	nb_setval('$included_file',[]).
 	
 
 % Start file for yap

Index: messages.yap
===================================================================
RCS file: /cvsroot/yap/pl/messages.yap,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- messages.yap	12 Jun 2008 10:55:52 -0000	1.12
+++ messages.yap	16 Jun 2008 21:22:15 -0000	1.13
@@ -25,7 +25,7 @@
 file_location(Prefix) -->
 	{
 	 prolog_load_context(file, FileName)
-	 },
+	},
 	{ '$start_line'(LN) },
 	file_position(FileName,LN,Prefix),
 	[ nl ].

Index: statistics.yap
===================================================================
RCS file: /cvsroot/yap/pl/statistics.yap,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- statistics.yap	12 Feb 2008 21:50:58 -0000	1.9
+++ statistics.yap	16 Jun 2008 21:22:15 -0000	1.10
@@ -135,6 +135,14 @@
 :- meta_predicate time(:).
 
 time(Goal) :-
+	var(Goal),
+	'$do_error'(instantiation_error,time(Goal)).
+time(_:Goal) :-
+	var(Goal),
+	'$do_error'(instantiation_error,time(Goal)).
+time(Goal) :- \+ callable(Goal), !,
+	'$do_error'(type_error(callable,Goal),time(Goal)).
+time(Goal) :-
 	statistics(walltime, _),
 	statistics(cputime, _), 
 	(   catch(Goal, E, true)