commit 90408eea58c1391013a54b66771c7bdfc601666e parent 6a607c97ab62f5cfcdeb40e0c3129a5262ea60c5 Author: Robby Findler <robby@racket-lang.org> Date: Sat, 30 Apr 2011 20:34:41 -0500 adjust scribble's racketblock renderer so that #true and #false don't turn into #t and #f. original commit: c8d476c76ee1f19fc6d1bf3503081221806b709a Diffstat:
| M | collects/scribble/racket.rkt | | | 19 | +++++++++++++------ |
| A | collects/tests/scribble/docs/read-alts.scrbl | | | 13 | +++++++++++++ |
| A | collects/tests/scribble/docs/read-alts.txt | | | 8 | ++++++++ |
3 files changed, 34 insertions(+), 6 deletions(-)
diff --git a/collects/scribble/racket.rkt b/collects/scribble/racket.rkt @@ -209,12 +209,19 @@ (memq (syntax-e c) (current-variable-list)))] [(s it? sub?) (let ([sc (syntax-e c)]) - (let ([s (or (syntax-property c 'display-string) - (format "~s" (if (literal-syntax? sc) - (literal-syntax-stx sc) - (if (var-id? sc) - (var-id-sym sc) - sc))))]) + (let ([s (cond + [(syntax-property c 'display-string) => values] + [(literal-syntax? sc) (format "~s" (literal-syntax-stx sc))] + [(var-id? sc) (format "~s" (var-id-sym sc))] + [(eq? sc #t) + (if (equal? (syntax-span c) 5) + "#true" + "#t")] + [(eq? sc #f) + (if (equal? (syntax-span c) 6) + "#false" + "#f")] + [else (format "~s" sc)])]) (if (and (symbol? sc) ((string-length s) . > . 1) (char=? (string-ref s 0) #\_) diff --git a/collects/tests/scribble/docs/read-alts.scrbl b/collects/tests/scribble/docs/read-alts.scrbl @@ -0,0 +1,13 @@ +#lang scribble/manual +@(require scribble/manual) +@; test that various alternatives in reader syntax get +@; turned into the right things when rendered +@racketblock[#t + #true + #f + #false + (a . < . b) + (< a b) + "abcdef" + ([{}])] + diff --git a/collects/tests/scribble/docs/read-alts.txt b/collects/tests/scribble/docs/read-alts.txt @@ -0,0 +1,8 @@ + #t + #true + #f + #false + (a . < . b) + (< a b) + "abcdef" + ([{}])