Make sure that span is not false before checking length

Author: bdeket

scribble-lib/scribble/racket.rkt

@@ -280,8 +280,9 @@
          [(and (number? sc)
                (inexact? sc))
           (define s (iformat "~s" sc))
-          (if (= (string-length s)
-                 (- (syntax-span c) 2))
+          (if (let ([span (syntax-span c)])
+                (and span (= (string-length s)
+                             (- span 2))))
               ;; There's no way to know whether the source used #i,
               ;; but it should be ok to include it:
               (string-append "#i" s)

scribble-test/tests/scribble/docs/manual-ex.rkt

@@ -31,3 +31,4 @@
 (define val:list '(1 2 3 4))
 (define val:vector #(1 2 3 4))
 (define val:param (make-parameter 'foo))
+(define val:flonum 1.25)

scribble-test/tests/scribble/docs/manual.scrbl

@@ -80,6 +80,7 @@ A function, again, not a link target, documented to return @racket[10] using a d
 @defthing[#:link-target? #f val:kw any/c #:auto-value]{Test auto-value keyword reading.}
 @defthing[#:link-target? #f val:list any/c #:auto-value]{Test auto-value list reading.}
 @defthing[#:link-target? #f val:vector any/c #:auto-value]{Test auto-value vector reading.}
+@defthing[#:link-target? #f val:flonum any/c #:auto-value]{Test auto-value flonum reading.}
 
 @defstruct[pt ([x real?] [y real?])]{A structure type with extra name.}
 

scribble-test/tests/scribble/docs/manual.txt

@@ -186,6 +186,10 @@ val:vector : any/c = #(1 2 3 4)
 
 Test auto-value vector reading.
 
+val:flonum : any/c = 1.25
+
+Test auto-value flonum reading.
+
 (struct pt (x y)                     
     #:extra-constructor-name make-pt)
   x : real?