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

Remove unused argument

Browse Source 
svn: r12872
This commit is contained in:
Stevie Strickland 2008-12-16 20:35:19 +00:00
parent f7c37571ce
commit 821a3ae900
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mzlib/unit.ss
View File

@ -461,7 +461,7 @@
#,(syntax-span id)) #,(syntax-span id))
#,(format "~s" (syntax-object->datum id)))) #,(format "~s" (syntax-object->datum id))))
(define-for-syntax (make-import-unboxing int-var ext-var loc ctc name) (define-for-syntax (make-import-unboxing ext-var loc ctc name)
(if ctc (if ctc
(quasisyntax/loc (error-syntax) (quasisyntax/loc (error-syntax)
(quote-syntax (contract #,ctc (unbox #,loc) 'cant-happen '#,name #,(id->contract-src-info ext-var)))) (quote-syntax (contract #,ctc (unbox #,loc) 'cant-happen '#,name #,(id->contract-src-info ext-var))))
@ -550,9 +550,8 @@
(quasisyntax/loc (error-syntax) (quasisyntax/loc (error-syntax)
[#,ivs [#,ivs
(make-id-mappers (make-id-mappers
#,@(map (lambda (iv ev l c) #,@(map (lambda (ev l c)
(make-import-unboxing iv ev l c #'name)) (make-import-unboxing ev l c #'name))
(syntax->list ivs)
(syntax->list evs) (syntax->list evs)
(syntax->list ils) (syntax->list ils)
ics))])) ics))]))