fix scribble/doc reader's get-info

svn: r16574 original commit: 8f62218de5508aad57e87fa1237e49b54ce165a9
2009-11-06 18:18:43 +00:00 · 2009-11-06 18:18:43 +00:00 · 61b582b90b
commit 61b582b90b
parent 2f3fab3fc9
1 changed files with 2 additions and 2 deletions
--- a/collects/scribble/doc/lang/reader.ss
+++ b/collects/scribble/doc/lang/reader.ss
@ -4,8 +4,8 @@
         get-info)

 (define (get-info . args)
-  (lambda (key)
+  (lambda (key defval)
    (case key
      [(color-lexer)
       (dynamic-require 'syntax-color/scribble-lexer 'scribble-inside-lexer)]
-      [else #f])))
+      [else defval])))