suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

scribble/text: fix contract and docs on with-writer

Browse Source 
original commit: 964e9d128fd44da01ff1eea3efe9b02566f28530
This commit is contained in:
Matthew Flatt 2014-02-10 20:24:50 -07:00
parent 460c6323e0
commit b669a390ff
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/scribble-pkgs/scribble-doc/scribblings/scribble/text.scrbl
View File

@ -1316,7 +1316,10 @@ characters.}
A value that outputs as the @tech{current indentation} plus @tech{current prefix}.}
@defproc[(with-writer [writer (or/c (string? output-port? . -> . any/c) #f)]
@defproc[(with-writer [writer (or/c (->* (string? output-port?)
(exact-nonnegative-integer?)
any/c)
#f)]
[v outputable/c] ...)
outputable/c]{

2
pkgs/scribble-pkgs/scribble-text-lib/scribble/text/output.rkt
View File

@ -273,7 +273,7 @@
(define/provide-special (restore-prefix))
(define/provide-special (add-prefix [pfx (or/c string? exact-nonnegative-integer?)]))
(define/provide-special (set-prefix [pfx (or/c string? exact-nonnegative-integer?)]))
(define/provide-special (with-writer [writer (or/c #f (string? output-port? . -> . any/c))]))
(define/provide-special (with-writer [writer (or/c #f (->* (string? output-port?) (exact-nonnegative-integer?) any/c))]))
#; ; no need for this hack yet
(define/provide-special (with-writer-change writer))