Fix comment about euclidean division -- r may be zero.

diff --git a/src/runtime/division.scm b/src/runtime/division.scm
index dbea8791001002acf308d6d2b2f2da1d5465f6ef..ef4080bd6f4a260cd003c60b2b460e494f52575b 100644 (file)
--- a/src/runtime/division.scm
+++ b/src/runtime/division.scm
@@ -78,7 +78,7 @@ USA.
 \f
 ;;;; Euclidean Division
 
-;;; 0 < r < |d|
+;;; 0 <= r < |d|
 
 (define (euclidean/ n d)
   (if (and (exact-integer? n) (exact-integer? d))