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

more GUI reference work

Browse Source 
svn: r7087

original commit: 4f0479a68864e23a72698474b288dc22c08d3e46
This commit is contained in:
Matthew Flatt 2007-08-13 16:36:43 +00:00
parent 362c312033
commit afe6ea745a
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/scribble/manual.ss
View File

@ -1336,14 +1336,15 @@
[(_ mode ((arg ...) ...) desc ...) [(_ mode ((arg ...) ...) desc ...)
(let ([n (syntax-parameter-value #'current-class)]) (let ([n (syntax-parameter-value #'current-class)])
(with-syntax ([name n] (with-syntax ([name n]
[result (let ([s (quote-syntax (is-a/c nm))]) [result (datum->syntax-object #f
(datum->syntax-object s (list
(let ([l (syntax->list s)]) (datum->syntax-object #'is-a?/c
(cons (car l) 'is-a?/c
(list (datum->syntax-object n (list 'src 1 1 2 1))
(syntax-e n) (datum->syntax-object n
(cadr l))))) (syntax-e n)
s))] (list 'src 1 3 4 1)))
(list 'src 1 0 1 5))]
[(((kw ...) ...) ...) (map (lambda (ids) [(((kw ...) ...) ...) (map (lambda (ids)
(map (lambda (arg) (map (lambda (arg)
(if (and (pair? (syntax-e arg)) (if (and (pair? (syntax-e arg))