20 lines
436 B
Racket
20 lines
436 B
Racket
#;
|
|
(exn-pred #rx"promised: String.*produced: 'not-a-string")
|
|
#lang racket
|
|
|
|
;; Ensure contracts for inner work correctly
|
|
|
|
(module t typed/racket
|
|
(provide c%)
|
|
(define c%
|
|
(class object%
|
|
(super-new)
|
|
(: m (-> Void) #:augment (-> String))
|
|
(define/pubment (m) (inner "hi" m) (void)))))
|
|
|
|
(require (submod "." t))
|
|
(send (new (class c%
|
|
(super-new)
|
|
(define/augment (m) 'not-a-string)))
|
|
m)
|