suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Danny Yoo 2011-09-27 11:30:44 -04:00
parent e4f9481bc1
commit 40820a96b4
2 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/more-tests/isolating-bug.rkt
View File

@ -21,9 +21,12 @@
(define-struct name (fields ...) kw ...) (define-struct name (fields ...) kw ...)
(let ([cnstr (lambda args (let ([cnstr (lambda args
(apply cnstr args))]) (apply cnstr args))])
(displayln names) ...
(values names ...))))))))])) (values names ...))))))))]))
(my-define-struct swf (f) #:mutable) (my-define-struct swf (f) #:mutable)
(displayln "---")
struct:swf
make-swf make-swf
swf? swf?
swf-f swf-f
set-swf-f!