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

.

Browse Source 
original commit: ec498ba2bfd98952c1a0e7501c4b972fd4504054
This commit is contained in:
Robby Findler 2004-04-12 13:50:59 +00:00
parent d6cb30a07b
commit 94220f9c98
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/mzlib/contract.ss
View File

@ -362,6 +362,7 @@ add struct contracts for immutable structs?
;; builds a begin expression for the entire contract and provide
;; the first syntax object is used for source locations
(define (code-for-one-id stx id ctrct user-rename-id)
(printf "code-for-one-id ~s\n" (syntax-object->datum id))
(with-syntax ([id-rename (a:mangle-id provide-stx "provide/contract-id" id)]
[contract-id (a:mangle-id provide-stx "provide/contract-contract-id" id)]
[pos-module-source (a:mangle-id provide-stx "provide/contract-pos-module-source" id)]