original commit: 7aaf9f527da1271450f60ad733b86cbefe0908bb
This commit is contained in:
Matthew Flatt 2001-03-15 16:09:08 +00:00
parent 1843321381
commit 8b02872f55

View File

@ -2508,7 +2508,7 @@
(lambda (s) (major-offset s))
car ; child-info-x-min
caddr ; child-info-x-stretch
(lambda (s) (minor-offset s))
(lambda (s t) (minor-offset s t))
(lambda (width height) height)
(lambda (width height) width)
(lambda (major minor) minor)
@ -2752,7 +2752,7 @@
(entry-point
(case-lambda
[() (send (get-obj) method)]
[(v) (send (get-obj) method)])))]))
[(v) (send (get-obj) method v)])))]))
(define (constructor-name who)
(string->symbol (format "initialization for ~a%" who)))