fix halt/0 and halt/1

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1051 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-04-27 15:14:38 +00:00
parent e6cab52dc2
commit 40e84ca034
3 changed files with 18 additions and 25 deletions
--- a/pl/utils.yap
+++ b/pl/utils.yap
@@ -687,3 +687,13 @@ version(T) :-
 	recorda('$toplevel_hooks',H,_),
 	fail.
 '$set_toplevel_hook'(_).
+
+halt(X) :- '$halt'(X).
+
+halt :-
+	'$print_message'(informational, halt),
+	'$halt'(0).
+
+halt(X) :-
+	'$halt'(X).
+