From ee5a3c54a2362426e92bd677c5485f0a396847d5 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 15 Jun 2006 14:38:45 +0000
Subject: [PATCH] added teachpack-htdc

svn: r3368
---
 collects/help/private/docpos.ss | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/collects/help/private/docpos.ss b/collects/help/private/docpos.ss
index 08dd273ecf..e218c5a76e 100644
--- a/collects/help/private/docpos.ss
+++ b/collects/help/private/docpos.ss
@@ -5,7 +5,7 @@
   (provide/contract
    [standard-html-doc-position (path? . -> . number?)]
    [known-docs (listof (cons/c path? string?))])
-  
+
   ;; Define an order on the standard docs.
   (define (standard-html-doc-position d)
     (let ([str (path->string d)])
@@ -16,7 +16,7 @@
                 (caddr line)
                 100)))))
 
-  
+
   ;; (listof (list string string number))
   ;; the first string is the collection name
   ;; the second string is the title of the the manual
@@ -25,12 +25,12 @@
     `(("r5rs" "Revised^5 Report on the Algorithmic Language Scheme" -50)
       ("mzscheme" "PLT MzScheme: Language Manual" -49)
       ("mred" "PLT MrEd: Graphical Toolbox Manual" -48)
-            
+
       ("tour" "A Brief Tour of DrScheme" 0)
       ("drscheme" "PLT DrScheme: Programming Environment Manual" 1)
-      
+
       ("srfi" "SRFI documents inside PLT" 3)
-      
+
       ("mzlib" "PLT MzLib: Libraries Manual" 5)
       ("misclib" "PLT Miscellaneous Libraries: Reference Manual" 6)
       ("mrlib" "PLT MrLib: Graphical Libraries Manual" 7)
@@ -38,7 +38,7 @@
 
       ("mzc" "PLT mzc: MzScheme Compiler Manual" 10)
       ("foreign" "PLT Foreign Interface Manual" 10)
-      
+
       ("tools" "PLT Tools: DrScheme Extension Manual" 30)
       ("insidemz" "Inside PLT MzScheme" 50)
 
@@ -48,16 +48,17 @@
 
       ("t-y-scheme" "Teach Yourself Scheme in Fixnum Days" 100)
       ("tex2page" "TeX2page" 101)
-      
+
       ("beginning" "Beginning Student Language" 200)
       ("beginning-abbr" "Beginning Student with List Abbreviations Language" 201)
       ("intermediate" "Intermediate Student Language" 202)
       ("intermediate-lambda" "Intermediate Student with Lambda Language" 203)
       ("advanced" "Advanced Student Language" 204)
       ("teachpack" "Teachpacks for How to Design Programs" 205)
-      
+      ("teachpack-htdc" "Teachpacks for How to Design Classes" 206)
+
       ("profj-beginner" "ProfessorJ Beginner Language" 210)
       ("profj-intermediate" "ProfessorJ Intermediate Language" 211)
       ("profj-advanced" "ProfessorJ Advanced Language" 212)))
-  
+
   (define known-docs (map (lambda (x) (cons (string->path (car x)) (cadr x))) docs-and-positions)))