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

start porring docs on exn, threads, and custodians

Browse Source 
svn: r6746

original commit: 23158078f374a9a869d06ed4760742f06f33e9e4
This commit is contained in:
Matthew Flatt 2007-06-27 03:47:55 +00:00
parent c097769365
commit a2ebeaa1bb
4 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scribble/html-render.ss
View File

@ -130,7 +130,8 @@
`((,(case (length number) `((,(case (length number)
[(0) 'h2] [(0) 'h2]
[(1) 'h3] [(1) 'h3]
[else 'h4]) [(2) 'h4]
[else 'h5])
,@(format-number number '((tt nbsp))) ,@(format-number number '((tt nbsp)))
,@(if (part-tag d) ,@(if (part-tag d)
`((a ((name ,(format "~a" `(part ,(part-tag d))))))) `((a ((name ,(format "~a" `(part ,(part-tag d)))))))

24
collects/scribble/manual.ss
View File

@ -180,7 +180,8 @@
;; ---------------------------------------- ;; ----------------------------------------
(provide defproc defproc* defstruct defthing defform defform* defform/subs defform*/subs defform/none (provide defproc defproc* defstruct defthing defparam
defform defform* defform/subs defform*/subs defform/none
specform specform/subs specform specform/subs
specsubform specsubform/subs specspecsubform specspecsubform/subs specsubform/inline specsubform specsubform/subs specspecsubform specspecsubform/subs specsubform/inline
schemegrammar schemegrammar* schemegrammar schemegrammar*
@ -240,8 +241,10 @@
(lambda () (list desc ...)))])) (lambda () (list desc ...)))]))
(define-syntax defstruct (define-syntax defstruct
(syntax-rules () (syntax-rules ()
[(_ name fields #:immutable desc ...)
(*defstruct (quote-syntax name) 'name 'fields #t (lambda () (list desc ...)))]
[(_ name fields desc ...) [(_ name fields desc ...)
(*defstruct (quote-syntax name) 'name 'fields (lambda () (list desc ...)))])) (*defstruct (quote-syntax name) 'name 'fields #f (lambda () (list desc ...)))]))
(define-syntax (defform*/subs stx) (define-syntax (defform*/subs stx)
(syntax-case stx () (syntax-case stx ()
[(_ #:literals (lit ...) [spec spec1 ...] ([non-term-id non-term-form ...] ...) desc ...) [(_ #:literals (lit ...) [spec spec1 ...] ([non-term-id non-term-form ...] ...) desc ...)
@ -342,6 +345,10 @@
(syntax-rules () (syntax-rules ()
[(_ id result desc ...) [(_ id result desc ...)
(*defthing (quote-syntax id) 'id 'result (lambda () (list desc ...)))])) (*defthing (quote-syntax id) 'id 'result (lambda () (list desc ...)))]))
(define-syntax defparam
(syntax-rules ()
[(_ id arg contract desc ...)
(defproc* ([(id) contract] [(id [arg contract]) void?]) desc ...)]))
(define-syntax schemegrammar (define-syntax schemegrammar
(syntax-rules () (syntax-rules ()
[(_ #:literals (lit ...) id clause ...) (*schemegrammar '(lit ...) [(_ #:literals (lit ...) id clause ...) (*schemegrammar '(lit ...)
@ -587,7 +594,7 @@
(map symbol->string (car wrappers))))))) (map symbol->string (car wrappers)))))))
(cdr wrappers)))) (cdr wrappers))))
(define (*defstruct stx-id name fields content-thunk) (define (*defstruct stx-id name fields immutable? content-thunk)
(define spacer (hspace 1)) (define spacer (hspace 1))
(make-splice (make-splice
(cons (cons
@ -613,10 +620,13 @@
(map (lambda (f) (map (lambda (f)
(list name '- (car f))) (list name '- (car f)))
fields) fields)
(map (lambda (f) (if immutable?
(list 'set- name '- (car f) '!)) null
fields))))) (map (lambda (f)
,(map car fields)))))))) (list 'set- name '- (car f) '!))
fields))))))
,(map car fields)
,@(if immutable? '(#:immutable) null))))))))
(map (lambda (v) (map (lambda (v)
(cond (cond
[(pair? v) [(pair? v)

2
collects/scribble/scheme.ss
View File

@ -111,7 +111,7 @@
(define advance (define advance
(case-lambda (case-lambda
[(c init-line! delta) [(c init-line! delta)
(let ([c (+ delta (syntax-column c))] (let ([c (+ delta (or (syntax-column c) 0))]
[l (syntax-line c)]) [l (syntax-line c)])
(let ([new-line? (and l (l . > . line))]) (let ([new-line? (and l (l . > . line))])
(when new-line? (when new-line?

4
collects/scribble/scribble.css
View File

@ -69,10 +69,6 @@
margin-right: 0em; margin-right: 0em;
} }
h1,h2,h3,h4,h5,h6 {
margin-top: .5em;
}
.toclink { .toclink {
text-decoration: none; text-decoration: none;
color: blue; color: blue;