From 8e4e9304074fff69226b86bdc16cfd617115cd99 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 21 Sep 2009 22:23:57 +0000 Subject: * algebra/data.spad.pamphlet (SystemInteger): Tidy. * algebra/integer.spad.pamphlet (Integer): Likewise. * algebra/si.spad.pamphlet (IntegerNumberSystem): Likewise. --- src/algebra/data.spad.pamphlet | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/algebra/data.spad.pamphlet') diff --git a/src/algebra/data.spad.pamphlet b/src/algebra/data.spad.pamphlet index e5de8656..7ad3e7bb 100644 --- a/src/algebra/data.spad.pamphlet +++ b/src/algebra/data.spad.pamphlet @@ -107,7 +107,7 @@ SystemInteger(N: PositiveInteger): Public == Private where size() == (rep max - rep min + 1)::NonNegativeInteger index i == per (i + rep min - 1) lookup x == (rep x - rep min + 1)::PositiveInteger - random() == per(random()$Integer rem rep max) + random() == per random(rep max())$Integer @ -- cgit v1.2.3