[Yap-commits] CVS: pl arith.yap, 1.20, 1.21 boot.yap, 1.192, 1.193 utils.yap, 1.90, 1.91

[Vitor S. C. <vs...@us...>]

Update of /cvsroot/yap/pl
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv21137/pl

Modified Files:
	arith.yap boot.yap utils.yap 
Log Message:
MaxOS fixes
Avoid a thread deadlock
improvements to SWI predicates.
make variables_in_term system builtin.


Index: arith.yap
===================================================================
RCS file: /cvsroot/yap/pl/arith.yap,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- arith.yap	15 May 2008 13:41:47 -0000	1.20
+++ arith.yap	12 Aug 2008 01:27:23 -0000	1.21
@@ -337,6 +337,7 @@
 '$unary_op_as_integer'(float_integer_part,28).
 '$unary_op_as_integer'(sign,29).
 '$unary_op_as_integer'(lgamma,30).
+'$unary_op_as_integer'(random,31).
 
 '$binary_op_as_integer'(+,0).
 '$binary_op_as_integer'(-,1).

Index: boot.yap
===================================================================
RCS file: /cvsroot/yap/pl/boot.yap,v
retrieving revision 1.192
retrieving revision 1.193
diff -u -r1.192 -r1.193
--- boot.yap	6 Aug 2008 10:15:48 -0000	1.192
+++ boot.yap	12 Aug 2008 01:27:23 -0000	1.193
@@ -312,7 +312,9 @@
  '$execute_commands'(C,VL,Con,Source) :-
 	 '$execute_command'(C,VL,Con,Source).
 
- %
+
+
+				%
  %
  %
 

Index: utils.yap
===================================================================
RCS file: /cvsroot/yap/pl/utils.yap,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -r1.90 -r1.91
--- utils.yap	15 May 2008 13:41:48 -0000	1.90
+++ utils.yap	12 Aug 2008 01:27:23 -0000	1.91
@@ -855,3 +855,9 @@
 nb_current(GlobalVariable, Val) :-
 	nb_getval(GlobalVariable, Val).
 
+
+between(I,_,I).
+between(I0,I,J) :- I0 < I, 
+	I1 is I0+1,
+	between(I1,I,J).
+