allow doc.txt searches in Algol60 language, so that Algol60 docs are found

svn: r1564
2005-12-08 16:05:59 +00:00 · 2005-12-08 16:05:59 +00:00 · cb4b287a2d
commit cb4b287a2d
parent 82498c6933
1 changed files with 3 additions and 1 deletions
--- a/collects/algol60/tool.ss
+++ b/collects/algol60/tool.ss
@ -74,7 +74,9 @@
          (define/public (order-manuals x) 
            (values 
             (list #"drscheme" #"tour" #"help")
-             #f))
+	     ;; We allow doc.txt search results, because the Algol60
+	     ;; docs are in doc.txt:
+             #t))
          (define/public (get-language-name) "Algol 60")
          (define/public (get-language-url) #f)
          (define/public (get-language-numbers) (list 1000 10))