From faa30584422deb3d9f227c16b9a718630f258aa4 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Thu, 17 Apr 2014 10:05:14 -0400 Subject: [PATCH] Fix mzlib/unit tests for new undefined handling. original commit: 4872bdfb2fe6f1896d801145c5ef8530f59b23ca --- .../compatibility-test/tests/mzlib/unit.rktl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/pkgs/compatibility-pkgs/compatibility-test/tests/mzlib/unit.rktl b/pkgs/compatibility-pkgs/compatibility-test/tests/mzlib/unit.rktl index 3264672..3cccd7f 100644 --- a/pkgs/compatibility-pkgs/compatibility-test/tests/mzlib/unit.rktl +++ b/pkgs/compatibility-pkgs/compatibility-test/tests/mzlib/unit.rktl @@ -3,6 +3,7 @@ (Section 'unit) (require mzlib/unit200) +(require racket/undefined) ;; Hide keywords from scheme/unit.rkt: (define import #f) @@ -68,7 +69,7 @@ ; Self-import is now allowed ; (syntax-test #'(compound-unit (import) (link (A (0 (A)))) (export))) ; (syntax-test #'(compound-unit (import) (link (A (0 (A x)))) (export))) -(test (list (letrec ([x x]) x) 5) +(test (list undefined 5) 'self-import (invoke-unit (compound-unit @@ -362,7 +363,7 @@ (test #t unit? u2) (test 3 'invoke (invoke-unit u2)) -(test (letrec ([x y][y 0]) x) 'invoke +(test undefined #;(letrec ([x y][y 0]) x) 'invoke (invoke-unit (unit (import) (export) (define x y) (define y 7) x))) ; Can shadow syntax/macros in unit