From 903358724dab00cb79cff3526c0f6bf82182c598 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Wed, 2 Sep 2009 23:07:43 -0500
Subject: [PATCH] fix bad code in between (obs from Jose Santos).

---
 pl/arith.yap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pl/arith.yap b/pl/arith.yap
index 8e265806b..b6ae53bc8 100644
--- a/pl/arith.yap
+++ b/pl/arith.yap
@@ -367,7 +367,7 @@ between(I,M,J) :-
 	   integer(J)
 	  ->
 	   J >= I
-	  ->
+	  ;
 	   '$do_error'(type_error(integer, J),between(I,M,J))
 	  )
 	 ;