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

..

Browse Source 
original commit: eb21c51c6abead14b452adbf10b08a07a239d079
This commit is contained in:
Robby Findler 2002-05-04 13:19:06 +00:00
parent 42d69fa7a5
commit 5368f653a9
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/framework/specs.ss
View File

@ -24,16 +24,12 @@
(andmap identifier? (syntax->list (syntax (id ...))))
(with-syntax ([(id-rename ...) (generate-temporaries (syntax (id ...)))]
[(contract-id ...)
(generate-temporaries
(with-syntax ([(pre-contract-id ...)
(map (lambda (x)
(string->symbol
(format
"contract-id-~a-"
(syntax-object->datum x))))
(syntax->list (syntax (id ...))))])
(generate-temporaries
(syntax (pre-contract-id ...)))))]
(map (lambda (x)
(datum->syntax-object
provide-stx
(string->symbol
(format "provide/contract-id-~a-ACK" (syntax-object->datum x)))))
(syntax->list (syntax (id ...))))]
[pos-blame-stx (datum->syntax-object provide-stx 'here)]
[module-source-as-symbol (datum->syntax-object provide-stx 'module-source-as-symbol)])
(syntax
@ -44,8 +40,7 @@
(define-syntax id-rename
(make-set!-transformer
(lambda (stx)
(with-syntax ([neg-blame-stx (datum->syntax-object stx 'here)]
[m-stx stx])
(with-syntax ([neg-blame-stx (datum->syntax-object stx 'here)])
(syntax-case stx (set!)
[(set! _ body) (raise-syntax-error
#f