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

These lets aren't doing anything, so remove them.

Browse Source 
svn: r12769

original commit: bc62c06e1cdd0abf4e3068dee7c1a28eb3886674
This commit is contained in:
Stevie Strickland 2008-12-10 19:29:21 +00:00
commit b4695eeac4
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mzlib/unit.ss
View File

@ -454,8 +454,7 @@
(define-for-syntax (make-import-unboxing int-var ext-var loc ctc name) (define-for-syntax (make-import-unboxing int-var ext-var loc ctc name)
(if ctc (if ctc
(quasisyntax/loc (error-syntax) (quasisyntax/loc (error-syntax)
(quote-syntax (let ([#,int-var (contract #,ctc (unbox #,loc) 'cant-happen '#,name (quote-syntax #,ext-var))]) (quote-syntax (contract #,ctc (unbox #,loc) 'cant-happen '#,name (quote-syntax #,ext-var))))
#,int-var)))
(quasisyntax/loc (error-syntax) (quasisyntax/loc (error-syntax)
(quote-syntax (unbox #,loc))))) (quote-syntax (unbox #,loc)))))
@ -1245,10 +1244,9 @@
(map (map
(lambda (i iv c) (lambda (i iv c)
(if c (if c
#`(let ([#,iv (contract #,c (unbox (vector-ref #,ov #,i)) #`(contract #,c (unbox (vector-ref #,ov #,i))
'cant-happen (#%variable-reference) 'cant-happen (#%variable-reference)
(quote-syntax #,iv))]) (quote-syntax #,iv))
#,iv)
#`(unbox (vector-ref #,ov #,i)))) #`(unbox (vector-ref #,ov #,i))))
(iota (length (car os))) (iota (length (car os)))
(map cdr (car os)) (map cdr (car os))