continuing to isolate the bug. It looks like when we get the values back, we're somehow scrambling the order? Very strange

2011-09-27 11:30:44 -04:00 · 2011-09-27 11:30:44 -04:00 · 40820a96b4
commit 40820a96b4
parent e4f9481bc1
2 changed files with 15 additions and 12 deletions
--- a/tests/more-tests/isolating-bug.rkt
+++ b/tests/more-tests/isolating-bug.rkt
@ -21,9 +21,12 @@
                   (define-struct name (fields ...) kw ...)
                   (let ([cnstr (lambda args
                                  (apply cnstr args))])
+                     (displayln names) ...
                     (values names ...))))))))]))
-
 (my-define-struct swf (f) #:mutable)
+(displayln "---")
+struct:swf
 make-swf
 swf?
 swf-f
+set-swf-f!