original commit: 0f5987bf9a8e9249f6b53db4928411c9a4af7d2d
This commit is contained in:
Robby Findler 2003-02-12 20:02:17 +00:00
parent 649f6b39df
commit 183798fdda

View File

@ -56,16 +56,16 @@
(identifier? (syntax name))
(with-syntax ([pos-blame-stx (datum->syntax-object define-stx 'here)]
[contract-id (datum->syntax-object
define-stx
#f
(string->symbol
(format
"ACK-define/contract-contract-id-~a"
"define/contract-contract-id-~a"
(syntax-object->datum (syntax name)))))]
[id (datum->syntax-object
define-stx
(string->symbol
(format
"ACK-define/contract-id-~a"
"define/contract-id-~a"
(syntax-object->datum (syntax name)))))])
(syntax/loc define-stx
(begin
@ -391,12 +391,12 @@
;; the name isn't fresh, so `id' combined with `ids' must already be unique.
(define (mangle-id prefix id . ids)
(datum->syntax-object
provide-stx
#f
(string->symbol
(string-append
prefix
(format
"-~a~a-ACK-PLEASE_DONT_GUESS_THIS_ID"
"-~a~a"
(syntax-object->datum id)
(apply
string-append