From 3135970b09a06c77c4f5be329670fc0e48ab458a Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 10 Sep 2010 09:43:28 -0400 Subject: [PATCH] Old TR pages only up to but not including 5.0 --- collects/meta/web/www/techreports.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/meta/web/www/techreports.rkt b/collects/meta/web/www/techreports.rkt index b527c020dd..16853bd66a 100644 --- a/collects/meta/web/www/techreports.rkt +++ b/collects/meta/web/www/techreports.rkt @@ -3,9 +3,11 @@ (require "bib.rkt" (prefix-in - version/utils) racket/list "../download/data.rkt") +;; Old style TR entries, for compatibility ------------------------------------ + (provide make-bib-table) -(define tr-version-range "...5.0") +(define last-old-tr "4.9") (define authors '([plt "PLT"] @@ -268,7 +270,8 @@ (if (number? (cadr d)) d (list* (car d) #f (cdr d)))))) (define bibs - (for*/list ([ver (filter (versions->pred tr-version-range) + (for*/list ([ver (filter (let ([last (-version->integer last-old-tr)]) + (lambda (v) (<= (version->integer v) last))) (reverse all-versions))] [doc doc-defs*] #:when ((car doc) ver))