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

fix a scribble bug; add r6rs reader

Browse Source 
svn: r8635

original commit: 0dc359a956978ffac13dacf31c4b07b80a81a709
This commit is contained in:
Matthew Flatt 2008-02-12 21:50:35 +00:00
parent 13d9da2ae0
commit 0d943763a3
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/scribble/manual.ss
View File

@ -1424,10 +1424,12 @@
(let ([just-name (let ([just-name
(make-target-element* (make-target-element*
make-toc-target-element make-toc-target-element
stx-id (if (pair? name)
(car (syntax-e stx-id))
stx-id)
(annote-exporting-library (annote-exporting-library
(to-element (if (pair? name) (to-element (if (pair? name)
(make-just-context (car name) stx-id) (make-just-context (car name) (car (syntax-e stx-id)))
stx-id))) stx-id)))
(let ([name (if (pair? name) (let ([name (if (pair? name)
(car name) (car name)
@ -1445,13 +1447,14 @@
(map (lambda (f) (map (lambda (f)
(if (or (not immutable?) (if (or (not immutable?)
(and (pair? (car f)) (and (pair? (car f))
(memq '#:mutable (car f)))) (memq '#:mutable (car f))))
(list 'mutator 'set- name '- (field-name f) '!) (list 'mutator 'set- name '- (field-name f) '!)
#f)) #f))
fields))))))]) fields))))))])
(if (pair? name) (if (pair? name)
(to-element (list just-name (to-element (list just-name
(make-just-context (cadr name) stx-id))) (make-just-context (cadr name)
(cadr (syntax-e stx-id)))))
just-name))] just-name))]
[short-width (apply + [short-width (apply +
(length fields) (length fields)

4
collects/scribblings/scribble/manual.scrbl
View File

@ -583,9 +583,9 @@ of by-name arguments (for use with @scheme[new]).}
Like @scheme[defconstructor/make], but with multiple constructor Like @scheme[defconstructor/make], but with multiple constructor
patterns analogous @scheme[defproc*].} patterns analogous @scheme[defproc*].}
@defform[(defconstructor/super-init [(arg-spec ...) ...] pre-flow ...)]{ @defform[(defconstructor/auto-super [(arg-spec ...) ...] pre-flow ...)]{
Like @scheme[defconstructor/super-init], but the constructor is Like @scheme[defconstructor], but the constructor is
annotated to indicate that additional initialization arguments are annotated to indicate that additional initialization arguments are
accepted and propagated to the sueprclass.} accepted and propagated to the sueprclass.}