From 7ab052ebb9f757061606f181430ec1be173f0fe7 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 28 Jan 2007 15:25:46 +0000 Subject: [PATCH] fixed a bug svn: r5485 --- collects/mzlib/private/contract-ds.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/private/contract-ds.ss b/collects/mzlib/private/contract-ds.ss index adbfb9b7a8..8f48b9d546 100644 --- a/collects/mzlib/private/contract-ds.ss +++ b/collects/mzlib/private/contract-ds.ss @@ -388,7 +388,7 @@ it around flattened out. #,(bind-lifts lifts #`(let-syntax #,(if (opt/info-recf opt/info) - (#`[#,(opt/info-recf opt/info) + #`([#,(opt/info-recf opt/info) (lambda (stx) (syntax-case stx () [(f val args ((... ...) (... ...)))