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 ...)
(let ([n (syntax-parameter-value #'current-class)])
(with-syntax ([name n]
[result (let ([s (quote-syntax (is-a/c nm))])
(datum->syntax-object s
(let ([l (syntax->list s)])
(cons (car l)
(list (datum->syntax-object n
(syntax-e n)
(cadr l)))))
s))]
[result (datum->syntax-object #f
(list
(datum->syntax-object #'is-a?/c
'is-a?/c
(list 'src 1 1 2 1))
(datum->syntax-object n
(syntax-e n)
(list 'src 1 3 4 1)))
(list 'src 1 0 1 5))]
[(((kw ...) ...) ...) (map (lambda (ids)
(map (lambda (arg)
(if (and (pair? (syntax-e arg))