make struct-exec a little more interesting

svn: r14828 original commit: 7a24d39348fc652863895491310d101cfd7513cd
2009-05-15 15:47:57 +00:00 · 2009-05-15 15:47:57 +00:00 · 3a21f89ecd
commit 3a21f89ecd
parent 936629c1b1
1 changed files with 1 additions and 1 deletions
--- a/collects/tests/typed-scheme/succeed/struct-exec.ss
+++ b/collects/tests/typed-scheme/succeed/struct-exec.ss
@ -1,3 +1,3 @@
 #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))