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

fix SW_HIDE

Browse Source 
svn: r8065
This commit is contained in:
Matthew Flatt 2007-12-19 16:59:33 +00:00
parent e4a588e405
commit 6b62431fa5
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/mzscheme/src/port.c
View File

@ -7601,11 +7601,12 @@ static Scheme_Object *sch_shell_execute(int c, Scheme_Object *argv[])
if (!SCHEME_PATH_STRINGP(argv[3])) if (!SCHEME_PATH_STRINGP(argv[3]))
scheme_wrong_type("shell-execute", SCHEME_PATH_STRING_STR, 3, c, argv); scheme_wrong_type("shell-execute", SCHEME_PATH_STRING_STR, 3, c, argv);
{ {
int show_set = 0;
show = 0; show = 0;
# define mzseCMP(id, str) \ # define mzseCMP(id, str) \
if (SAME_OBJ(scheme_intern_symbol(str), argv[4]) \ if (SAME_OBJ(scheme_intern_symbol(str), argv[4]) \
|| SAME_OBJ(scheme_intern_symbol(# id), argv[4])) \ || SAME_OBJ(scheme_intern_symbol(# id), argv[4])) { \
show = mzseSHOW(id) show = mzseSHOW(id); show_set = 1; }
mzseCMP(SW_HIDE, "sw_hide"); mzseCMP(SW_HIDE, "sw_hide");
mzseCMP(SW_MAXIMIZE, "sw_maximize"); mzseCMP(SW_MAXIMIZE, "sw_maximize");
mzseCMP(SW_MINIMIZE, "sw_minimize"); mzseCMP(SW_MINIMIZE, "sw_minimize");
@ -7619,7 +7620,7 @@ static Scheme_Object *sch_shell_execute(int c, Scheme_Object *argv[])
mzseCMP(SW_SHOWNOACTIVATE, "sw_shownoactivate"); mzseCMP(SW_SHOWNOACTIVATE, "sw_shownoactivate");
mzseCMP(SW_SHOWNORMAL, "sw_shownormal"); mzseCMP(SW_SHOWNORMAL, "sw_shownormal");
if (!show) if (!show_set)
scheme_wrong_type("shell-execute", "show-mode symbol", 4, c, argv); scheme_wrong_type("shell-execute", "show-mode symbol", 4, c, argv);
} }