suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix another bug introduced in efd2683301

Browse Source
This commit is contained in:
Robby Findler 2013-08-28 11:37:54 -05:00
parent abc7f9a873
commit 90e9e5cb30
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/htdp-pkgs/htdp-lib/lang/htdp-langs.rkt
View File

@ -617,7 +617,7 @@
(begin (begin
(message-box (string-constant drscheme) (message-box (string-constant drscheme)
(format (string-constant already-added-teachpack) (format (string-constant already-added-teachpack)
(cadr teachpack)) (tp-require->str teachpack))
#:dialog-mixin frame:focus-table-mixin) #:dialog-mixin frame:focus-table-mixin)
settings) settings)
@ -634,7 +634,7 @@
new-tps)))) new-tps))))
settings))) settings)))
(λ (settings name) (λ (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))]) (htdp-lang-settings-teachpacks settings))])
(preferences:set 'drracket:htdp:last-set-teachpacks new-tps) (preferences:set 'drracket:htdp:last-set-teachpacks new-tps)
(make-htdp-lang-settings (make-htdp-lang-settings