From 3a21f89ecd79a1e4738ba614b1b7a1fa7cf01902 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 15 May 2009 15:47:57 +0000 Subject: [PATCH] make struct-exec a little more interesting svn: r14828 original commit: 7a24d39348fc652863895491310d101cfd7513cd --- collects/tests/typed-scheme/succeed/struct-exec.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/typed-scheme/succeed/struct-exec.ss b/collects/tests/typed-scheme/succeed/struct-exec.ss index 23fb3d06..0964a5d9 100644 --- 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))