www

commit 442ab704e5bff483fc16d36874c2e0ab726bd42c
parent 1406c9b916fbcf613b12f0ced40ed9691848614d
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Sun,  8 Nov 2009 21:17:51 +0000

unstable/struct: added struct->list
  some (cdr (vector->list (struct->vector x))) => (struct->list x)

svn: r16622

original commit: d1439ef6c61807555b96c37639c4ad4e458766aa

Diffstat:
M
collects/macro-debugger/syntax-browser/pretty-helper.ss
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/collects/macro-debugger/syntax-browser/pretty-helper.ss b/collects/macro-debugger/syntax-browser/pretty-helper.ss
@@ -4,6 +4,7 @@
          scheme/pretty
          macro-debugger/util/class-iop
          syntax/stx
+         unstable/struct
          "interfaces.ss")
 (provide (all-defined-out))
 
@@ -140,7 +141,7 @@
 ;; unfold-pstruct : prefab-struct -> (values (list -> prefab-struct) list)
 (define (unfold-pstruct obj)
   (define key (prefab-struct-key obj))
-  (define fields (cdr (vector->list (struct->vector obj))))
+  (define fields (struct->list obj))
   (values (lambda (new-fields)
             (apply make-prefab-struct key new-fields))
           fields))