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

svn: r12186

Browse Source
This commit is contained in:
Robby Findler 2008-10-31 00:45:23 +00:00
parent 0c40227dac
commit b453c09007
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/main.ss
View File

@ -60,7 +60,9 @@
("case" 1)
("syntax-rules" 1)
("syntax-case" 2)
("syntax-case*" 3))
("syntax-case*" 3)
("kernel-syntax-case" 2)
("kernel-syntax-case*" 3))
(λ (x) (and (list? x) (andmap (λ (x) (and (pair? x)
(string? (car x))
(pair? (cdr x))

1
collects/framework/private/scheme.ss
View File

@ -1662,6 +1662,7 @@
(define-values (ok-button cancel-button)
(gui-utils:ok/cancel-buttons bp confirm-callback cancel-callback (string-constant ok) (string-constant cancel)))
(send tb focus)
(send f show #t)
answers)