diff --git a/racket/src/expander/syntax/binding-table.rkt b/racket/src/expander/syntax/binding-table.rkt index dd8e45e939..7998d38964 100644 --- a/racket/src/expander/syntax/binding-table.rkt +++ b/racket/src/expander/syntax/binding-table.rkt @@ -286,7 +286,7 @@ (hash-iterate-key sym-ht sym-i) ; symbol ht) i) - (next-state-in-full-binding-table (hash-iterate-next sym-ht sym-i)))) + (next-state-in-full-binding-table sym-ht (hash-iterate-next sym-ht sym-i)))) '(#f . #f))) ;; ---------------------------------------- diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 3da06a758f..d84eacd78f 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -6699,7 +6699,7 @@ static const char *startup_source = "(let-values(((i_51)(hash-iterate-first ht_32)))" "(if i_51" "(cons(vector sym-i_0(hash-iterate-key sym-ht_0 sym-i_0) ht_32) i_51)" -"(next-state-in-full-binding-table(hash-iterate-next sym-ht_0 sym-i_0)))))" +"(next-state-in-full-binding-table sym-ht_0(hash-iterate-next sym-ht_0 sym-i_0)))))" " '(#f . #f)))))" "(define-values" "(binding-table-symbols)"