From aa3bc04a3ad643f3db104f3d967368321bfe9e79 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 15 Jan 2004 23:02:08 +0000 Subject: [PATCH] .. original commit: 4819743ae7613faaecca26ecf9a6235091167b51 --- collects/mred/private/seqcontract.ss | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/collects/mred/private/seqcontract.ss b/collects/mred/private/seqcontract.ss index 422e2545..294328c8 100644 --- a/collects/mred/private/seqcontract.ss +++ b/collects/mred/private/seqcontract.ss @@ -191,9 +191,11 @@ (let loop ([l l]) (cond [(null? l) '<>] - [else (if (cadr (car l)) - (car (car l)) - (loop (cdr l)))]))) + [else + (let ([test (cadr (car l))]) + (if test + (format "~s (~s)" (car (car l)) test) + (loop (cdr l))))]))) (define (sequence-contract-violation dir fmt . args) (apply error @@ -330,8 +332,8 @@ Matthew (style-has-changed [(style)] write-lock)] [flow-lock - (and (locked-for-flow?) - (not (locked-for-read?))) + (and (not (locked-for-read?)) + (locked-for-flow?)) (get-text [() (x) (x y) (x y z) (x y z p)] flow-lock) (get-character [(start)] flow-lock)