From 2f9717ca72a1801918199ff52749db2b92484d44 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Mon, 15 Mar 2010 07:05:31 +0000 Subject: [PATCH] Start on the init function. First step -- just replace it if we have init contracts, but don't add any checking (yet). svn: r18536 --- collects/scheme/private/class-internal.ss | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/collects/scheme/private/class-internal.ss b/collects/scheme/private/class-internal.ss index 4fe4b9145b..f287d4426b 100644 --- a/collects/scheme/private/class-internal.ss +++ b/collects/scheme/private/class-internal.ss @@ -2860,6 +2860,12 @@ (vector-set! int-vec new-idx (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)))) (define-struct class/c