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 (hash-iterate-key sym-ht sym-i) ; symbol
ht) ht)
i) 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))) '(#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)))" "(let-values(((i_51)(hash-iterate-first ht_32)))"
"(if i_51" "(if i_51"
"(cons(vector sym-i_0(hash-iterate-key sym-ht_0 sym-i_0) ht_32) 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)))))" " '(#f . #f)))))"
"(define-values" "(define-values"
"(binding-table-symbols)" "(binding-table-symbols)"