b18d940f1a
Propagate syntax properties when opening up begins at the top-level so that ignore properties will get transferred.
14 lines
258 B
Racket
14 lines
258 B
Racket
#;
|
|
(exn-pred #rx"could not be converted")
|
|
#lang racket/load
|
|
|
|
;; Tests that p? cannot be generated
|
|
|
|
(require typed/racket)
|
|
|
|
(define-predicate p? (All (A) (Listof A)))
|
|
|
|
(let ()
|
|
(: x (U (Listof Integer) Integer)) (define x '(1 2 3))
|
|
(if (p? x) 0 (add1 x)))
|