From 749ba13d3dd5cba8b95be9d7c8b9c1b8055e3283 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Thu, 23 Oct 2014 00:35:14 +0100
Subject: [PATCH] fix retractall with numbers, Paulo Moura

---
 pl/preds.yap | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/pl/preds.yap b/pl/preds.yap
index 58036a241..3c3c8cb2c 100644
--- a/pl/preds.yap
+++ b/pl/preds.yap
@@ -675,6 +675,9 @@ retractall(V) :-
 	 ;
 	   '$retractall_lu'(T,M)
 	 )
+	;
+	  \+ callable(T) ->
+	  '$do_error'(type_error(callable,T),retractall(T))
 	;
 	  '$undefined'(T,M) ->
 	  functor(T,Na,Ar),