aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/fraction.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/fraction.spad.pamphlet')
-rw-r--r--src/algebra/fraction.spad.pamphlet1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/algebra/fraction.spad.pamphlet b/src/algebra/fraction.spad.pamphlet
index a54b4f61..bb9fbee4 100644
--- a/src/algebra/fraction.spad.pamphlet
+++ b/src/algebra/fraction.spad.pamphlet
@@ -252,6 +252,7 @@ QuotientFieldCategory(S: IntegralDomain): Category ==
if S has IntegerNumberSystem then
random():% ==
+ d : S
while zero?(d:=random()$S) repeat d
random()$S / d