bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 9eb42b71eeee59bba39ebac2bedd62bb83490ba3
parent 1653b798cde90145ce4a1c8d3e5162c82da4ee67
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Tue, 10 Mar 2009 23:14:53 +0000

fix defclass and some scheme/gui argument schemevarfont binding

svn: r14042

original commit: d8d25debcd12d27588f31015d128b4b874ca3b8d

Diffstat:
M
collects/scribble/private/manual-class.ss
 | 
18
++++++++----------

1 file changed, 8 insertions(+), 10 deletions(-)
diff --git a/collects/scribble/private/manual-class.ss b/collects/scribble/private/manual-class.ss
@@ -44,7 +44,7 @@
 
 (define-struct decl (name super app-mixins intfs ranges mk-head body))
 (define-struct constructor (def))
-(define-struct meth (names mode desc def))
+(define-struct meth (names mode def))
 (define-struct spec (def))
 (define-struct impl (def))
 
@@ -155,7 +155,7 @@
 (define (build-body decl body)
   `(,@(map (lambda (i)
              (cond [(constructor? i) ((constructor-def i))]
-                   [(meth? i) ((meth-def i) (meth-desc i))]
+                   [(meth? i) ((meth-def i))]
                    [else i]))
            body)
     ,(make-delayed-block (lambda (r d ri) (make-inherited-table r d ri decl)))))
@@ -426,16 +426,14 @@
          #'(make-meth '(name ...)
                       'mode
                       (lambda ()
-                        (make-splice
-                         (append-map (lambda (f)
-                                       (cond [(impl? f) ((impl-def f))]
-                                             [(spec? f) ((spec-def f))]
-                                             [else (list f)]))
-                                     (list extra ... desc ...))))
-                      (lambda (desc-splice)
                         (defproc* #:mode send #:within cname
                           ([(name arg ...) result-type] ...)
-                          (desc-splice))))))]
+                          (make-splice
+                           (append-map (lambda (f)
+                                         (cond [(impl? f) ((impl-def f))]
+                                               [(spec? f) ((spec-def f))]
+                                               [else (list f)]))
+                                       (list extra ... desc ...))))))))]
     [(_ ([(name arg ...) result-type] ...) desc ...)
      #'(defmethod* #:mode public ([(name arg ...) result-type] ...) desc ...)]))