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

.

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

1
collects/mzlib/contract.ss
View File

@ -362,7 +362,6 @@ 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)]