From afe6ea745a8fd9a257054b3f98f89fc6a1930e9e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 13 Aug 2007 16:36:43 +0000 Subject: [PATCH] more GUI reference work svn: r7087 original commit: 4f0479a68864e23a72698474b288dc22c08d3e46 --- collects/scribble/manual.ss | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss index 9f7ecace..dc6eeec3 100644 --- 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))