diff --git a/compiler-test/tests/compiler/zo-exs.rkt b/compiler-test/tests/compiler/zo-exs.rkt index 03c836bbd0..90a025c951 100644 --- a/compiler-test/tests/compiler/zo-exs.rkt +++ b/compiler-test/tests/compiler/zo-exs.rkt @@ -27,21 +27,25 @@ (test (roundtrip - (compilation-top 0 + (compilation-top 0 + #hash() (prefix 0 empty empty 'insp0) (list 1 (list 2 3) (list 2 3) 4 5))) (roundtrip - (compilation-top 0 + (compilation-top 0 + #hash() (prefix 1 empty empty 'insp0) (list (lam 'proc null 0 null #f #(0) '(val/ref) (set 0) 3 1)))) (roundtrip - (compilation-top 0 + (compilation-top 0 + #hash() (prefix 1 empty empty 'insp0) (list (lam 'proc null 0 null #f #(0) '(val/ref) #f 3 1)))) #;(roundtrip (compilation-top 0 + #hash() (prefix 0 empty empty) (let* ([ph (make-placeholder #f)] [x (closure @@ -62,6 +66,7 @@ #;(roundtrip (compilation-top 0 + #hash() (prefix 0 (list #f) (list)) (mod 'simple @@ -93,18 +98,21 @@ #t))) (roundtrip - (compilation-top 0 + (compilation-top 0 + #hash() (prefix 0 empty empty 'insp0) (current-directory))) (roundtrip - (compilation-top 0 + (compilation-top 0 + #hash() (prefix 0 empty empty 'insp0) (list (current-directory)))) (roundtrip (compilation-top 0 + #hash() (prefix 0 empty empty 'insp0) (cons #hash() #hash()))) @@ -112,5 +120,6 @@ (roundtrip (compilation-top 0 + #hash() (prefix 0 empty empty 'insp0) #hash())))