A bit more work on ADT codegen

[scheme.git] / tests.scm

diff --git a/tests.scm b/tests.scm
index 87ed2a6461004eaf44ef2fcd3c1e0ea18aa87ef4..648ce073fbb97526b1a70e8327842a905dae35fa 100644 (file)
--- a/tests.scm
+++ b/tests.scm
@@ -227,7 +227,7 @@
 
                                        ; adts and pattern matching
 
-(test-prog '((data (A [foo Int]))
+(test-prog '((data A [foo Int])
             (let ([(foo x) (foo 42)])
               x))
           42)