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

Follow 90e9e5cb30 for DMdA languages.

Browse Source 
Unbreak the "Clear XXX teachpack" menu.
This commit is contained in:
Mike Sperber 2013-09-04 20:21:24 +02:00
parent f0539f0e65
commit 8e0dc29c1d
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/deinprogramm/deinprogramm/deinprogramm-langs.rkt
View File

@ -819,7 +819,7 @@
(begin
(message-box (string-constant drscheme)
(format (string-constant already-added-teachpack)
(cadr teachpack)))
(tp-require->str teachpack)))
settings)
(let ([new-tps (append old-tps (list teachpack))])
@ -836,7 +836,7 @@
new-tps))))
settings)))
(lambda (settings name)
(let ([new-tps (filter (lambda (x) (not (equal? (cadr x) name)))
(let ([new-tps (filter (lambda (x) (not (equal? (tp-require->str x) name)))
(deinprogramm-lang-settings-teachpacks settings))])
(preferences:set 'drscheme:deinprogramm:last-set-teachpacks new-tps)
(make-deinprogramm-lang-settings