From 1d8e04896eb58d61576e8155ce3aed3e1923352e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 27 Feb 2018 06:58:12 -0700 Subject: [PATCH] avoid a pattern that confuses xform --- racket/src/racket/src/validate.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/racket/src/validate.c b/racket/src/racket/src/validate.c index a6afc79ae1..f323abecad 100644 --- a/racket/src/racket/src/validate.c +++ b/racket/src/racket/src/validate.c @@ -509,7 +509,7 @@ static void ref_validate(Scheme_Object *data, Mz_CPort *port, struct Validate_Clearing *vc, int tailpos, Scheme_Hash_Tree *procs) { - tl_timestamp++; /* allows (define x (#%variable-reference x)) */ + tl_timestamp = tl_timestamp + 1; /* allows (define x (#%variable-reference x)) */ if (!SCHEME_FALSEP(SCHEME_PTR1_VAL(data))) validate_toplevel(SCHEME_PTR1_VAL(data), port, stack, tls, depth, delta,