adjust search-page sizing of 'provided from' to use a CSS entry, which scales by the magic 82% instead of 80% (because 80% drops just below the threshold of anti-aliasing the default monospace font in Safari)

svn: r10036

collects/r6rs/scribblings/r6rs.scrbl

@@ -315,7 +315,7 @@ several known ways:
          (>= #f "r6rs-Z-H-14.html" "node_idx_472")
          (abs #f "r6rs-Z-H-14.html" "node_idx_506")
          (acos #f "r6rs-Z-H-14.html" "node_idx_554")
-         (and #f "r6rs-Z-H-14.html" "node_idx_388")
+         (and #t "r6rs-Z-H-14.html" "node_idx_388")
          (angle #f "r6rs-Z-H-14.html" "node_idx_576")
          (append #f "r6rs-Z-H-14.html" "node_idx_634")
          (apply #f "r6rs-Z-H-14.html" "node_idx_752")
@@ -418,7 +418,7 @@ several known ways:
          (number? #f "r6rs-Z-H-14.html" "node_idx_440")
          (numerator #f "r6rs-Z-H-14.html" "node_idx_524")
          (odd? #f "r6rs-Z-H-14.html" "node_idx_480")
-         (or #f "r6rs-Z-H-14.html" "node_idx_390")
+         (or #t "r6rs-Z-H-14.html" "node_idx_390")
          (pair? #f "r6rs-Z-H-14.html" "node_idx_608")
          (positive? #f "r6rs-Z-H-14.html" "node_idx_476")
          (procedure? #f "r6rs-Z-H-14.html" "node_idx_342")

collects/scribble/scribble.css

@@ -456,6 +456,10 @@ i {
   margin-right: 0.3em;
 }
 
+.smaller{ 
+  font-size: 82%;
+}
+
 /* A hack, inserted to break some Scheme ids: */
 .mywbr {
   width: 0;

collects/scribblings/main/private/make-search.ss

@@ -284,8 +284,8 @@
               desc += (j==0 ? "" : ", " )
                       + '<span class="schememod">' + libs[j] + '</span>';
             desc = '&nbsp;&nbsp;'
-                   + '<span style="font-size: 80%;">'
+                   + '<span class="smaller">'
-                   + '<span style="font-size: 80%;">provided from</span> '
+                   + '<span class="smaller">provided from</span> '
                    + desc + '</span>';
           }
           result_links[i].innerHTML =

collects/setup/scribble.ss

@@ -195,7 +195,8 @@
       (for ([i infos]
             #:when (not (or (info-need-run? i) (not (info-build? i)))))
         (let ([ch (ormap (lambda (i2)
-                           (and (>= (info-out-time i2) (info-time i)) i2))
+                           (or (not (info? i2))
+                               (and (>= (info-out-time i2) (info-time i)) i2)))
                          (info-deps i))])
           (when ch
             (when (verbose)

collects/tests/r6rs/test.ss

@@ -104,7 +104,10 @@
   
   (define (check-test expr got expected)
     (set! checked (+ 1 checked))
-    (unless (equal? got expected)
+    (unless (if (and (real? expected)
+                     (nan? expected))
+                (nan? got)
+                (equal? got expected))
       (set! failures
             (cons (list expr got expected)
                   failures))))