12 lines
181 B
Racket
12 lines
181 B
Racket
#;
|
|
(exn-pred exn:fail:contract?)
|
|
#lang scheme
|
|
|
|
(require typed/scheme)
|
|
|
|
(let ([x 'hello])
|
|
(with-type
|
|
#:result String
|
|
#:freevars ([x String])
|
|
(string-append x ", world")))
|