From 428d1d383d413f9295b67645c45fd024c0932b93 Mon Sep 17 00:00:00 2001 From: Blake Johnson Date: Fri, 10 Sep 2010 12:42:34 -0600 Subject: [PATCH] re-enabling tests original commit: 1cb11ce6cc7ef7d5a7c7d2e3e6c9f1a6cffed4ff --- collects/tests/compiler/zo-exs.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/tests/compiler/zo-exs.rkt b/collects/tests/compiler/zo-exs.rkt index a66ed0f39e..34ca2e4c2e 100644 --- a/collects/tests/compiler/zo-exs.rkt +++ b/collects/tests/compiler/zo-exs.rkt @@ -19,10 +19,11 @@ (test - #;(roundtrip + (roundtrip (compilation-top 0 (prefix 0 empty empty) (list 1 (list 2 3) (list 2 3) 4 5))) + ; XXX This should work, but closures have a field that is gensym'ed #;(roundtrip (compilation-top 0 (prefix 0 empty empty) @@ -42,6 +43,7 @@ (placeholder-set! ph x) (make-reader-graph x)))) + ; This should work, but module-path-index-join doesn't create equal? module-path-index's #;(roundtrip (compilation-top 0 @@ -74,12 +76,12 @@ (toplevel 0 0 #f #f) #(racket/language-info get-info #f) #t))) - #;(roundtrip + (roundtrip (compilation-top 0 (prefix 0 empty empty) (current-directory))) - #;(roundtrip + (roundtrip (compilation-top 0 (prefix 0 empty empty) (list (current-directory))))