- removed note about "equal? not terminating" in documentation.
This commit is contained in:
parent
766eb7f539
commit
5d3e70fa83
Binary file not shown.
|
@ -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.
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -1 +1 @@
|
|||
1666
|
||||
1667
|
||||
|
|
Loading…
Reference in New Issue