From 09c8baf7e795d5a1c7f2c1f0d39173be58e77d5c Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 21 Nov 2009 22:05:28 +0000 Subject: [PATCH] Re-enable context searches for the htdp languages, with results that come from the language or the teachpacks. svn: r16945 --- collects/lang/htdp-langs.ss | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/collects/lang/htdp-langs.ss b/collects/lang/htdp-langs.ss index f472763c63..5c099e69fc 100644 --- a/collects/lang/htdp-langs.ss +++ b/collects/lang/htdp-langs.ss @@ -514,16 +514,13 @@ keywords] [(drscheme:teachpack-menu-items) htdp-teachpack-callbacks] [(drscheme:special:insert-lambda) #f] - #; - ;; FIXME: disable context for now, re-enable when it is possible - ;; to have the context search the teachpack manual too. [(drscheme:help-context-term) (let* ([m (get-module)] [m (and m (pair? m) (pair? (cdr m)) (cadr m))] [m (and m (regexp-match #rx"^(lang/[^/.]+).ss$" m))] [m (and m (cadr m))]) (if m - (format "L:~a" m) + (format "O:{ L:~a T:teachpack }" m) (error 'drscheme:help-context-term "internal error: unexpected module spec")))] [(tests:test-menu tests:dock-menu) #t]