Fixing PR10485
This commit is contained in:
parent
6a99c93ebb
commit
d64d620c00
11
collects/tests/plai/datatype-coverage.rkt
Normal file
11
collects/tests/plai/datatype-coverage.rkt
Normal file
|
@ -0,0 +1,11 @@
|
|||
#lang plai
|
||||
;; RE: PR10485
|
||||
(define-type toy
|
||||
[airplane (lift number?) (name string?)])
|
||||
|
||||
(type-case toy (airplane 3412 "the bat!")
|
||||
[airplane (lift name) (+ lift 13)])
|
||||
|
||||
;; The body of this function should be the only red in the file
|
||||
(define (f x)
|
||||
(+ 1 1))
|
Loading…
Reference in New Issue
Block a user