15 lines
268 B
Racket
15 lines
268 B
Racket
#;
|
|
(exn-pred #rx"Attempted to use a higher-order value passed as `Any`")
|
|
#lang racket
|
|
|
|
(module typed typed/racket
|
|
(: d Any)
|
|
(define d (delay (lambda: ([x : Integer]) (+ x 1))))
|
|
(provide d))
|
|
|
|
(require 'typed)
|
|
|
|
;; this line should raise a ctc error
|
|
((force d) 6)
|
|
|