diff --git a/doc/ikarus-scheme-users-guide.pdf b/doc/ikarus-scheme-users-guide.pdf index 4f2bef9..eab5531 100644 Binary files a/doc/ikarus-scheme-users-guide.pdf and b/doc/ikarus-scheme-users-guide.pdf differ diff --git a/doc/ikarus-scheme-users-guide.tex b/doc/ikarus-scheme-users-guide.tex index 8fdbc4c..c8bcf3d 100644 --- a/doc/ikarus-scheme-users-guide.tex +++ b/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. diff --git a/scheme/ikarus.equal.ss b/scheme/ikarus.equal.ss index ad68ca6..e10d8de 100644 --- a/scheme/ikarus.equal.ss +++ b/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) diff --git a/scheme/last-revision b/scheme/last-revision index a8a4f74..15475a3 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1666 +1667