Fixing PR10485

This commit is contained in:
Jay McCarthy 2011-11-23 09:44:29 -07:00
parent 6a99c93ebb
commit d64d620c00

View 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))