suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 7aaf9f527da1271450f60ad733b86cbefe0908bb
This commit is contained in:
Matthew Flatt 2001-03-15 16:09:08 +00:00
parent 1843321381
commit 8b02872f55
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/mred.ss
View File

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