4d12021dbf
the new implementation doesn't provide eq? guarantees as often as the old one does, so hold off on this until we can sort that out. Thanks to drdr for pointing out the problem: http://drdr.racket-lang.org/28156/pkgs/drracket-pkgs/drracket-test/tests/drracket/teaching-lang-save-file.rkt
13 lines
374 B
Racket
13 lines
374 B
Racket
#lang racket/base
|
|
|
|
(require "contract/private/object.rkt")
|
|
(provide (all-from-out "contract/private/object.rkt"))
|
|
|
|
;; All of the implementation is actually in private/class-internal.rkt,
|
|
;; which provides extra (private) functionality to contract.rkt.
|
|
(require "private/class-internal.rkt"
|
|
"private/class-c-old.rkt")
|
|
|
|
(provide-public-names)
|
|
(provide generic?)
|