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

svn: r15854

Browse Source
This commit is contained in:
Robby Findler 2009-09-01 21:43:41 +00:00
parent 2acdfd6eb5
commit 4532602b5a
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/scheme/private/contract.ss
View File

@ -655,7 +655,6 @@ improve method arity mismatch contract violation error messages?
[id [id
(identifier? #'id) (identifier? #'id)
#'id])]) #'id])])
;(printf "id ~s ~s\n" #'id-ref (syntax->datum #'id-ref))
(syntax-local-introduce (syntax-local-introduce
(syntax-local-lift-expression (syntax-local-lift-expression
#`(-contract contract-id #`(-contract contract-id