From 90e9e5cb30d3589a584f4d365c408484da9bdbdd Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 28 Aug 2013 11:37:54 -0500 Subject: [PATCH] fix another bug introduced in efd2683301 --- pkgs/htdp-pkgs/htdp-lib/lang/htdp-langs.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/htdp-pkgs/htdp-lib/lang/htdp-langs.rkt b/pkgs/htdp-pkgs/htdp-lib/lang/htdp-langs.rkt index a5d1d80290..f2a1cbf25f 100644 --- a/pkgs/htdp-pkgs/htdp-lib/lang/htdp-langs.rkt +++ b/pkgs/htdp-pkgs/htdp-lib/lang/htdp-langs.rkt @@ -617,7 +617,7 @@ (begin (message-box (string-constant drscheme) (format (string-constant already-added-teachpack) - (cadr teachpack)) + (tp-require->str teachpack)) #:dialog-mixin frame:focus-table-mixin) settings) @@ -634,7 +634,7 @@ new-tps)))) settings))) (λ (settings name) - (let ([new-tps (filter (λ (x) (not (equal? (cadr x) name))) + (let ([new-tps (filter (λ (x) (not (equal? (tp-require->str x) name))) (htdp-lang-settings-teachpacks settings))]) (preferences:set 'drracket:htdp:last-set-teachpacks new-tps) (make-htdp-lang-settings