From d2eb80be357155e4e071950b33249658b02ea957 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 12 Feb 2011 20:31:49 -0600 Subject: [PATCH] missed a place where I need one fewer argument to the 'blame' constructor --- collects/racket/contract/private/legacy.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/collects/racket/contract/private/legacy.rkt b/collects/racket/contract/private/legacy.rkt index a8b9310d12..e919c7e27a 100644 --- a/collects/racket/contract/private/legacy.rkt +++ b/collects/racket/contract/private/legacy.rkt @@ -58,8 +58,7 @@ name (unpack-blame (if original? pos neg)) (unpack-blame (if original? neg pos)) - original? - (unpack-blame (if original? neg pos))))))) + original?))))) (define (legacy-property name) (define-values [ prop pred get ]