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

expander: fix corner for syntax-debug-info

Browse Source 
Add a missing argument in the implementation of binding traversals for
"all bindings" mode.
This commit is contained in:
Matthew Flatt 2018-06-21 19:41:57 -06:00
parent 30eb06874b
commit d8832723e9
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/expander/syntax/binding-table.rkt
View File

@ -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)))
;; ----------------------------------------

2
racket/src/racket/src/startup.inc
View File

@ -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)"