From 9d8f0e470d77ebddad98743d8ee0e9aa1bd19094 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Fri, 7 Jan 2005 06:29:20 +0000
Subject: [PATCH] signal handling bug fixed

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1229 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/arith1.c     | 4 +++-
 pl/signals.yap | 8 ++++----
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/C/arith1.c b/C/arith1.c
index db3f94883..6ba0dce6d 100644
--- a/C/arith1.c
+++ b/C/arith1.c
@@ -1124,8 +1124,10 @@ p_lgamma(Term t E_ARGS)
 
 #if HAVE_LGAMMA
   out = lgamma(dbl);
-#endif
   RFLOAT(out);
+#else
+  RERROR();
+#endif
 }
 
 /*
diff --git a/pl/signals.yap b/pl/signals.yap
index 043e0b362..92467ece1 100644
--- a/pl/signals.yap
+++ b/pl/signals.yap
@@ -122,15 +122,15 @@ on_signal(Signal,OldAction,Action) :-
 on_signal(Signal,OldAction,Action) :-
 	'$reset_signal'(Signal, OldAction),
 	'$current_module'(M),
-	recordz('$sig_handler', action(Signal,M:Action), _).
+	recordz('$signal_handler', action(Signal,M:Action), _).
 
 '$reset_signal'(Signal, OldAction) :-
-	recorded('$sig_handler', action(Signal,OldAction), Ref), !,
+	recorded('$signal_handler', action(Signal,OldAction), Ref), !,
 	erase(Ref).
 '$reset_signal'(_, default).
 
 '$check_signal'(Signal, OldAction) :-
-	recorded('$sig_handler', action(Signal,OldAction), _), !.
+	recorded('$signal_handler', action(Signal,OldAction), _), !.
 '$reset_signal'(_, default).
 
 
@@ -143,7 +143,7 @@ raise_exception(Ball) :- throw(Ball).
 on_exception(Pat, G, H) :- catch(G, Pat, H).
 
 read_sig :-
-	recorded('$sig_handler',X,_),
+	recorded('$signal_handler',X,_),
 	writeq(X),nl,
 	fail.
 read_sig.