scsh-conservatory
/
scsh-ncurses
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

curs_set may return either the old visibility or ERR

This commit is contained in:
mainzelm 2005-06-01 16:06:13 +00:00
parent c48ea3b152
commit 743ca2bc0a
2 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
c/ncurses.c
View File

@ -606,12 +606,11 @@ s48_value scsh_savetty(void)
s48_value scsh_curs_set(s48_value visibility) s48_value scsh_curs_set(s48_value visibility)
{ {
s48_value res; int old_vis;
S48_DECLARE_GC_PROTECT(2); old_vis = curs_set(s48_extract_fixnum(visibility));
S48_GC_PROTECT_2(visibility, res); if (old_vis == ERR)
res = s48_enter_integer(curs_set(s48_extract_integer(visibility))); return S48_FALSE;
S48_GC_UNPROTECT(); else return s48_enter_fixnum(old_vis);
return res;
} }
s48_value scsh_napms(s48_value ms) s48_value scsh_napms(s48_value ms)

5
scheme/ncurses.scm
View File

@ -42,7 +42,6 @@
(values) (values)
(signal 'curses-error function-name))) (signal 'curses-error function-name)))
(define (raise-curses-error function-name) (define (raise-curses-error function-name)
(signal 'curses-error function-name)) (signal 'curses-error function-name))
@ -421,8 +420,8 @@
(visibility) (visibility)
"scsh_curs_set") "scsh_curs_set")
(define (curs-set visibility) (define (curs-set visibility)
(return-curses-code-int "curs-set" (or (curs-set-internal visibility)
(curs-set-internal visibility))) (raise-curses-error "curs_set")))
(import-lambda-definition napms-internal (import-lambda-definition napms-internal