Implement Halt Hook (request from Bernd).

2010-09-24 14:00:53 +01:00
parent 691d66cca3
commit 99c5a17b12
15 changed files with 98 additions and 8 deletions
--- a/library/yap2swi/yap2swi.c
+++ b/library/yap2swi/yap2swi.c
@@ -3249,6 +3249,7 @@ X_API void (*PL_signal(int sig, void (*func)(int)))(int)

 X_API void PL_on_halt(void (*f)(int, void *), void *closure)
 {
+  Yap_HaltRegisterHook((HaltHookFunc)f,closure);
 }

 void Yap_swi_install(void);