diff --git a/pkgs/racket-test-core/tests/racket/stx.rktl b/pkgs/racket-test-core/tests/racket/stx.rktl index 3e21b2c140..620f1c7d1e 100644 --- a/pkgs/racket-test-core/tests/racket/stx.rktl +++ b/pkgs/racket-test-core/tests/racket/stx.rktl @@ -1171,7 +1171,7 @@ (define-for-syntax ht (make-hash)) (define-syntax (m stx) (or (hash-ref ht (syntax-local-lift-context) #f) - (let ([id (syntax-local-lift-expression #`(quote #,(current-inexact-milliseconds)))]) + (let ([id (syntax-local-lift-expression #`(quote #,(gensym)))]) (hash-set! ht (syntax-local-lift-context) id) id)))) (dynamic-require ''example-that-uses-the-lift-context 0) @@ -1187,7 +1187,7 @@ (dynamic-require ''extra-module 0) (let ([ns (module->namespace ''extra-module)]) (test (eval 'm ns) eval 'm ns) - (test #f = (eval 'm) (eval 'm ns)))))]) + (test #f eq? (eval 'm) (eval 'm ns)))))]) (go) (go) (go))