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

..

Browse Source 
original commit: 5ee5d4809e196f0fb6ac64a5f24be91acc12959f
This commit is contained in:
Robby Findler 2002-09-23 21:32:41 +00:00
parent 2f43da2ae9
commit 88facb8ca0
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/mzlib/contracts.ss
View File

@ -28,8 +28,18 @@
[(_ name contract-expr expr)
(identifier? (syntax name))
(with-syntax ([pos-blame-stx (datum->syntax-object define-stx 'here)]
[contract-id (datum->syntax-object define-stx 'ACK-define/contract-contract-id)]
[id (datum->syntax-object define-stx 'ACK-define/contract-id)])
[contract-id (datum->syntax-object
define-stx
(string->symbol
(format
"ACK-define/contract-contract-id-~a"
(syntax-object->datum (syntax name)))))]
[id (datum->syntax-object
define-stx
(string->symbol
(format
"ACK-define/contract-id-~a"
(syntax-object->datum (syntax name)))))])
(syntax
(begin
(define contract-id contract-expr)