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

fix context of macro-generated default-in-hash- internal ids

Browse Source
This commit is contained in:
Stephen Chang 2016-02-25 23:40:19 -05:00
parent f71474baca
commit 15f47ef62e
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/collects/racket/private/for.rkt
View File

@ -751,7 +751,7 @@
([-first (format-id #'PREFIX "~a-first" #'PREFIX)] ([-first (format-id #'PREFIX "~a-first" #'PREFIX)]
[-next (format-id #'PREFIX "~a-next" #'PREFIX)] [-next (format-id #'PREFIX "~a-next" #'PREFIX)]
[-VAL (format-id #'PREFIX "~a-~a" #'PREFIX #'VAL)] [-VAL (format-id #'PREFIX "~a-~a" #'PREFIX #'VAL)]
[AS-EXPR-SEQ (format-id #'VAL "default-~a" #'IN-HASH-SEQ)]) [AS-EXPR-SEQ (format-id #'def "default-~a" #'IN-HASH-SEQ)])
#'(begin #'(begin
(define (AS-EXPR-SEQ ht) (define (AS-EXPR-SEQ ht)
(unless (HASHTYPE? ht) (unless (HASHTYPE? ht)