had forgotten getrand/3.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@120 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2001-07-10 20:04:10 +00:00 · 2001-07-10 20:04:10 +00:00 · db588d7b15
parent 3a752aca82
commit db588d7b15
1 changed files with 3 additions and 0 deletions
--- a/library/random.yap
+++ b/library/random.yap
@ -114,6 +114,9 @@ setrand(rand(X,Y,Z)) :-
 	Z < 30323,
 	setrand(X,Y,Z).

+getrand(rand(X,Y,Z)) :-
+	getrand(X,Y,Z).
+