From d8832723e959bc5917e17c1b1a775f90736b751e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 21 Jun 2018 19:41:57 -0600 Subject: [PATCH] expander: fix corner for `syntax-debug-info` Add a missing argument in the implementation of binding traversals for "all bindings" mode. --- racket/src/expander/syntax/binding-table.rkt | 2 +- racket/src/racket/src/startup.inc | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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)"