commit afe6ea745a8fd9a257054b3f98f89fc6a1930e9e parent 362c31203350ebcd3e9b2253f4a4eec619d3782a Author: Matthew Flatt <mflatt@racket-lang.org> Date: Mon, 13 Aug 2007 16:36:43 +0000 more GUI reference work svn: r7087 original commit: 4f0479a68864e23a72698474b288dc22c08d3e46 Diffstat:
| M | collects/scribble/manual.ss | | | 17 | +++++++++-------- |
1 file changed, 9 insertions(+), 8 deletions(-)
diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss @@ -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))