From 03347cc39017ce38250fbf9268c2ebccee3bbc10 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Sat, 13 Sep 2008 04:37:51 +0000 Subject: [PATCH] Probably a better way to do this, but now the list is of odd length and I can't just remove define/contract (which is no longer a binding from scheme/contract) straightforwardly. svn: r11718 --- collects/mzlib/scribblings/contract.scrbl | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/collects/mzlib/scribblings/contract.scrbl b/collects/mzlib/scribblings/contract.scrbl index b9385821e8..d1fec7255d 100644 --- a/collects/mzlib/scribblings/contract.scrbl +++ b/collects/mzlib/scribblings/contract.scrbl @@ -7,6 +7,8 @@ (*twocolumns (list (scheme id) ...))) @(define (*twocolumns l) (let* ([len (length l)] + [l (if (odd? len) (append l (list #f)) l)] + [len (length l)] [half (quotient len 2)] [a (for/list ([i (in-range half)] [e l]) @@ -16,10 +18,12 @@ [to-flow (compose make-flow list make-paragraph list)]) (make-table #f (map (lambda (a b) - (list (to-flow spacer) - (to-flow a) - (to-flow spacer) - (to-flow b))) + (append (list (to-flow spacer) + (to-flow a)) + (if b + (list (to-flow spacer) + (to-flow b)) + null))) a b)))) @mzlib[#:mode title contract] @@ -47,7 +51,6 @@ from @schememodname[scheme/contract]: contract-violation->string contract? define-contract-struct - define/contract false/c flat-contract flat-contract-predicate