suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

change 'read-language' protocol so that the result from 'get-info' accepts a key plus default value (instead of just a key)

Browse Source 
svn: r16459

original commit: 973d51c20fde224d79382dbf6ea817598ea8773c
This commit is contained in:
Matthew Flatt 2009-10-29 23:05:56 +00:00
parent 3d38f95def
commit 76ba1e68a7
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/base/lang/reader.ss
View File

@ -6,13 +6,13 @@ scribble/base/lang
#:read-syntax scribble:read-syntax-inside #:read-syntax scribble:read-syntax-inside
#:whole-body-readers? #t #:whole-body-readers? #t
#:wrapper1 (lambda (t) (list* 'doc 'values '() (t))) #:wrapper1 (lambda (t) (list* 'doc 'values '() (t)))
#:info (lambda (key default) #:info (lambda (key defval default)
(case key (case key
[(color-lexer) [(color-lexer)
(dynamic-require 'syntax-color/scribble-lexer 'scribble-inside-lexer)] (dynamic-require 'syntax-color/scribble-lexer 'scribble-inside-lexer)]
[(drscheme:toolbar-buttons) [(drscheme:toolbar-buttons)
(dynamic-require 'scribble/drscheme-buttons 'drscheme-buttons)] (dynamic-require 'scribble/drscheme-buttons 'drscheme-buttons)]
[else (default key)])) [else (default key defval)]))
(require (prefix-in scribble: "../../reader.ss")) (require (prefix-in scribble: "../../reader.ss"))

4
collects/scribble/manual/lang/reader.ss
View File

@ -6,10 +6,10 @@ scribble/manual/lang
#:read-syntax scribble:read-syntax-inside #:read-syntax scribble:read-syntax-inside
#:whole-body-readers? #t #:whole-body-readers? #t
#:wrapper1 (lambda (t) (cons 'doc (t))) #:wrapper1 (lambda (t) (cons 'doc (t)))
#:info (lambda (key default) #:info (lambda (key defval default)
(case key (case key
[(color-lexer) [(color-lexer)
(dynamic-require 'syntax-color/scribble-lexer 'scribble-inside-lexer)] (dynamic-require 'syntax-color/scribble-lexer 'scribble-inside-lexer)]
[else (default key)])) [else (default defval key)]))
(require (prefix-in scribble: "../../reader.ss")) (require (prefix-in scribble: "../../reader.ss"))

4
collects/scribble/sigplan/lang/reader.ss
View File

@ -6,10 +6,10 @@ scribble/sigplan/lang
#:read-syntax scribble:read-syntax-inside #:read-syntax scribble:read-syntax-inside
#:whole-body-readers? #t #:whole-body-readers? #t
#:wrapper1 (lambda (t) (cons 'doc (t))) #:wrapper1 (lambda (t) (cons 'doc (t)))
#:info (lambda (key default) #:info (lambda (key defval default)
(case key (case key
[(color-lexer) [(color-lexer)
(dynamic-require 'syntax-color/scribble-lexer 'scribble-inside-lexer)] (dynamic-require 'syntax-color/scribble-lexer 'scribble-inside-lexer)]
[else (default key)])) [else (default defval key)]))
(require (prefix-in scribble: "../../reader.ss")) (require (prefix-in scribble: "../../reader.ss"))