Import Debian changes 3a5-1debian/3a5-1

slib (3a5-1) unstable; urgency=low

  * New upstream release.
  
  * slib.texi (Library Catalogs): Repeat change from 3a3-3.
    
  * Makefile: Repeat $(htmldir)slib_toc.html changes from 3a2-1.
   
  * guile.init: (library-vicinity): Repeat change from 3a4-2.
  
  * debian/rules (binary-indep): Don't hide .init files in a separate
    subdirectory, thus conforming better to the usual slib practice.  Put a 
    symlink in place to ease transitions.  (Closes: #407370).

1 files changed, 0 insertions, 28 deletions

diff --git a/root.scm b/root.scm
index 7045e54..667f05f 100644
--- a/root.scm
+++ b/root.scm
@@ -46,34 +46,6 @@
 ;;			    (lambda (x) (* 2 x))
 ;;			    (ash 1 (quotient (integer-length y) 2))))
 
-;;;; http://www.cs.cmu.edu/afs/cs/project/ai-repository/ai/lang/lisp/code/math/isqrt/isqrt.txt
-;;; Akira Kurihara
-;;; School of Mathematics
-;;; Japan Women's University
-;@
-(define integer-sqrt
-  (let ((table '#(0
-		  1 1 1
-		  2 2 2 2 2
-		  3 3 3 3 3 3 3
-		  4 4 4 4 4 4 4 4 4))
-	(square (lambda (x) (* x x))))
-    (lambda (n)
-      (define (isqrt n)
-	(if (> n 24)
-	    (let* ((len/4 (quotient (- (integer-length n) 1) 4))
-		   (top (isqrt (ash n (* -2 len/4))))
-		   (init (ash top len/4))
-		   (q (quotient n init))
-		   (iter (quotient (+ init q) 2)))
-	      (cond ((odd? q) iter)
-		    ((< (remainder n init) (square (- iter init))) (- iter 1))
-		    (else iter)))
-	    (vector-ref table n)))
-      (if (and (exact? n) (integer? n) (not (negative? n)))
-	  (isqrt n)
-	  (type-error 'integer-sqrt n)))))
-
 ;@
 (define (newton:find-root f df/dx x_0 prec)
   (if (and (negative? prec) (integer? prec))