suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

avoid a pattern that confuses xform

Browse Source
This commit is contained in:
Matthew Flatt 2018-02-27 06:58:12 -07:00
parent 654e846720
commit 1d8e04896e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/racket/src/validate.c
View File

@ -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,