Fix static struct info

svn: r14433 original commit: d57f1a68a4303e0c52ca9f3e383719c3f9e4591f
2009-04-06 06:18:06 +00:00 · 2009-04-06 06:18:06 +00:00 · ac03c56716
commit ac03c56716
parent b155c5e8f0
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-scheme/private/prims.ss
+++ b/collects/typed-scheme/private/prims.ss
@ -343,7 +343,7 @@ This file defines two sorts of primitives. All of them are provided into any mod
                                            (list #'struct-info
                                                  #'maker
                                                  #'pred
-                                                  (list #'sel ...)
+                                                  (reverse (list #'sel ...))
                                                  (list mut ...)
                                                  #f))))
                       #,(internal #'(define-typed-struct-internal nm ([fld : ty] ...) #:type-only))