From e6f5c70ad8a9a57d22a6646212928e2bd08a6173 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 22 Jan 2002 20:51:37 +0000 Subject: [PATCH] . original commit: 57af913ab8eb82819930db253c9301b20b1cd107 --- collects/mred/mred.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index 638b1911..72511e78 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -2942,7 +2942,7 @@ (sequence (let ([cwho '(iconstructor subarea)]) (unless (eq? horiz-margin no-val) (check-margin-integer cwho horiz-margin)) - (unless (eq? horiz-margin no-val) (check-margin-integer cwho vert-margin)))) + (unless (eq? vert-margin no-val) (check-margin-integer cwho vert-margin)))) (private-field [get-wx-panel get-wx-pan]) (public [(hm horiz-margin) (param get-wx-panel x-margin)]