From 76ba1e68a70cbf3678cf18e4b33af27fa6a847da Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 29 Oct 2009 23:05:56 +0000 Subject: [PATCH] change 'read-language' protocol so that the result from 'get-info' accepts a key plus default value (instead of just a key) svn: r16459 original commit: 973d51c20fde224d79382dbf6ea817598ea8773c --- collects/scribble/base/lang/reader.ss | 4 ++-- collects/scribble/manual/lang/reader.ss | 4 ++-- collects/scribble/sigplan/lang/reader.ss | 4 ++-- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/scribble/base/lang/reader.ss b/collects/scribble/base/lang/reader.ss index 9152de72..8f495a8e 100644 --- a/collects/scribble/base/lang/reader.ss +++ b/collects/scribble/base/lang/reader.ss @@ -6,13 +6,13 @@ scribble/base/lang #:read-syntax scribble:read-syntax-inside #:whole-body-readers? #t #:wrapper1 (lambda (t) (list* 'doc 'values '() (t))) -#:info (lambda (key default) +#:info (lambda (key defval default) (case key [(color-lexer) (dynamic-require 'syntax-color/scribble-lexer 'scribble-inside-lexer)] [(drscheme:toolbar-buttons) (dynamic-require 'scribble/drscheme-buttons 'drscheme-buttons)] - [else (default key)])) + [else (default key defval)])) (require (prefix-in scribble: "../../reader.ss")) diff --git a/collects/scribble/manual/lang/reader.ss b/collects/scribble/manual/lang/reader.ss index 2407939f..6e55aade 100644 --- a/collects/scribble/manual/lang/reader.ss +++ b/collects/scribble/manual/lang/reader.ss @@ -6,10 +6,10 @@ scribble/manual/lang #:read-syntax scribble:read-syntax-inside #:whole-body-readers? #t #:wrapper1 (lambda (t) (cons 'doc (t))) -#:info (lambda (key default) +#:info (lambda (key defval default) (case key [(color-lexer) (dynamic-require 'syntax-color/scribble-lexer 'scribble-inside-lexer)] - [else (default key)])) + [else (default defval key)])) (require (prefix-in scribble: "../../reader.ss")) diff --git a/collects/scribble/sigplan/lang/reader.ss b/collects/scribble/sigplan/lang/reader.ss index f67d928a..efe6bc9a 100644 --- a/collects/scribble/sigplan/lang/reader.ss +++ b/collects/scribble/sigplan/lang/reader.ss @@ -6,10 +6,10 @@ scribble/sigplan/lang #:read-syntax scribble:read-syntax-inside #:whole-body-readers? #t #:wrapper1 (lambda (t) (cons 'doc (t))) -#:info (lambda (key default) +#:info (lambda (key defval default) (case key [(color-lexer) (dynamic-require 'syntax-color/scribble-lexer 'scribble-inside-lexer)] - [else (default key)])) + [else (default defval key)])) (require (prefix-in scribble: "../../reader.ss"))