github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-04-27 12:49:29 +00:00
Code Issues Projects Releases Wiki Activity

Fix missing return value when !SUNDISPLAY, !XWINDOW. (#288)

Browse Source
This commit is contained in:
Bruce Mitchener
2021-01-25 12:22:34 +07:00
committed by GitHub
parent d4cbb6c9dc
commit 6428e64d69
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/dspsubrs.c
View File

@@ -70,16 +70,16 @@ LispPTR DSP_VideoColor(LispPTR *args) /* args[0] : black flag */
int invert; int invert;
#ifdef SUNDISPLAY #ifdef SUNDISPLAY
return NIL; return NIL;
#endif /* SUNDISPLAY */ #elif defined(XWINDOW)
#ifdef XWINDOW
invert = args[0] & 0xFFFF; invert = args[0] & 0xFFFF;
lisp_Xvideocolor(invert); lisp_Xvideocolor(invert);
if (invert) if (invert)
return ATOM_T; return ATOM_T;
else else
return NIL; return NIL;
#endif /* XWINDOW */ #else
return NIL;
#endif
} }
extern struct cursor CurrentCursor; extern struct cursor CurrentCursor;