suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make struct-exec a little more interesting

Browse Source 
svn: r14828
This commit is contained in:
Sam Tobin-Hochstadt 2009-05-15 15:47:57 +00:00
parent ddefd28d6d
commit 7a24d39348
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/typed-scheme/succeed/struct-exec.ss
View File

@ -1,3 +1,3 @@
#lang typed-scheme #lang typed-scheme
(define-typed-struct/exec X ([a : Number] [b : Boolean]) [(lambda: ([x : X]) (+ 3 )) : (X -> Number)]) (define-typed-struct/exec X ([a : Number] [b : Boolean]) [(lambda: ([x : X]) (+ 3 (X-a x))) : (X -> Number)])
((make-X 1 #f)) ((make-X 1 #f))