fix context of macro-generated default-in-hash- internal ids
This commit is contained in:
parent
f71474baca
commit
15f47ef62e
|
@ -751,7 +751,7 @@
|
|||
([-first (format-id #'PREFIX "~a-first" #'PREFIX)]
|
||||
[-next (format-id #'PREFIX "~a-next" #'PREFIX)]
|
||||
[-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
|
||||
(define (AS-EXPR-SEQ ht)
|
||||
(unless (HASHTYPE? ht)
|
||||
|
|
Loading…
Reference in New Issue
Block a user