From 821a3ae90057e9e0115df51e27d1572bfa8c50cd Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Tue, 16 Dec 2008 20:35:19 +0000 Subject: [PATCH] Remove unused argument svn: r12872 --- collects/mzlib/unit.ss | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/collects/mzlib/unit.ss b/collects/mzlib/unit.ss index 33e3356c45..8912813c79 100644 --- a/collects/mzlib/unit.ss +++ b/collects/mzlib/unit.ss @@ -461,7 +461,7 @@ #,(syntax-span 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 (quasisyntax/loc (error-syntax) (quote-syntax (contract #,ctc (unbox #,loc) 'cant-happen '#,name #,(id->contract-src-info ext-var)))) @@ -550,9 +550,8 @@ (quasisyntax/loc (error-syntax) [#,ivs (make-id-mappers - #,@(map (lambda (iv ev l c) - (make-import-unboxing iv ev l c #'name)) - (syntax->list ivs) + #,@(map (lambda (ev l c) + (make-import-unboxing ev l c #'name)) (syntax->list evs) (syntax->list ils) ics))]))