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

Start on the init function. First step -- just replace it if we have init

Browse Source 
contracts, but don't add any checking (yet).

svn: r18536
This commit is contained in:
Stevie Strickland 2010-03-15 07:05:31 +00:00
parent 9640ea4e2c
commit 2f9717ca72
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scheme/private/class-internal.ss
View File

@ -2860,6 +2860,12 @@
(vector-set! int-vec new-idx (vector-set! int-vec new-idx
(make-method (p (vector-ref int-vec new-idx)) m))))))) (make-method (p (vector-ref int-vec new-idx)) m)))))))
(unless (null? (class/c-inits ctc))
(set-class-init!
c
(lambda (the-obj super-go si_c si_inited? si_leftovers init-args)
(init the-obj super-go si_c si_inited? si_leftovers init-args))))
c)))) c))))
(define-struct class/c (define-struct class/c