- removed note about "equal? not terminating" in documentation.

doc/ikarus-scheme-users-guide.tex

@@ -2976,8 +2976,6 @@ procedures.
 
 
 \begin{itemize}
-\item The procedure \texttt{equal?}\ may not terminate on
-\texttt{equal?}\ infinite (circular) input.
 \item \texttt{number->string} does not accept the third argument
 (precision).  Similarly, \texttt{string->number} and the reader do
 not recognize the \texttt{|p} notation. 

scheme/ikarus.equal.ss

@@ -28,14 +28,11 @@
         ($fx=      =))))
 
 
-
-  (define eq-hashtable-ref hashtable-ref)
-  (define eq-hashtable-set! hashtable-set!)
-
-  (define-struct box (content))
-
   (define (union-find ht x y)
     (import UNSAFE)
+    (define-struct box (content))
+    (define eq-hashtable-ref hashtable-ref)
+    (define eq-hashtable-set! hashtable-set!)
     (define (find b)
       (let ([n (box-content b)])
         (if (box? n)

scheme/last-revision

@@ -1 +1 @@
-1666
+1667