* tests/numbers.test, tests/list.test: Updated for new

documentation module.

test-suite/tests/list.test

@@ -40,7 +40,7 @@
 ;;;; whether to permit this exception to apply to your modifications.
 ;;;; If you do not wish that, delete this exception notice.  
 
-(use-modules (ice-9 doc))
+(use-modules (ice-9 documentation))
 
 
 ;;;
@@ -163,12 +163,7 @@
 
   ;; Is documentation available?
 
-  (pass-if "documented?"
+  (pass-if "documented?" (object-documentation append!))
-    (let ((documented #f))
-      (with-output-to-string
-	(lambda ()
-	  (set! documented (documentation 'append!))))
-      documented))
 
   ;; Is the handling of empty lists as arguments correct?
 

test-suite/tests/numbers.test

@@ -40,7 +40,7 @@
 ;;;; whether to permit this exception to apply to your modifications.
 ;;;; If you do not wish that, delete this exception notice.
 
-(use-modules (ice-9 doc))
+(use-modules (ice-9 documentation))
 
 
 ;;;
@@ -48,12 +48,8 @@
 ;;;
 
 
-(define (documented? identifier)
+(define (documented? object)
-  (let ((documented #f))
+  (object-documentation object))
-    (with-output-to-string
-      (lambda ()
-	(set! documented (documentation identifier))))
-    documented))
 
 
 (define (make-test-name . args)
@@ -93,7 +89,7 @@
   ;; Is documentation available?
 
   (pass-if "documented?"
-    (documented? 'exact?))
+    (documented? exact?))
 
   ;; Special case:  0
 
@@ -148,7 +144,7 @@
   ;; Is documentation available?
 
   (expect-fail "documented?"
-    (documented? 'quotient))
+    (documented? quotient))
 
   ;; Special case:  0 / n
 
@@ -267,7 +263,7 @@
   ;; Is documentation available?
 
   (expect-fail "documented?"
-    (documented? 'remainder))
+    (documented? remainder))
 
   ;; Special case:  0 / n
 
@@ -386,7 +382,7 @@
   ;; Is documentation available?
 
   (expect-fail "documented?"
-    (documented? 'modulo))
+    (documented? modulo))
 
   ;; Special case:  0 % n
 
@@ -517,7 +513,7 @@
   ;; Is documentation available?
 
   (expect-fail "documented?"
-    (documented? 'gcd))
+    (documented? gcd))
 
   ;; Special case:  gcd 0 n
 
@@ -668,7 +664,7 @@
   ;; Is documentation available?
 
   (expect-fail "documented?"
-    (documented? '<))
+    (documented? <))
 
   ;; Special case:  0 < n