SHA256
1
0
forked from pool/audacity
audacity/audacity-retval.patch
OBS User autobuild 3160038a79 Accepting request 26070 from multimedia:apps
Copy from multimedia:apps/audacity based on submit request 26070 from user mseben

OBS-URL: https://build.opensuse.org/request/show/26070
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/audacity?expand=0&rev=24
2009-12-11 16:23:20 +00:00

38 lines
751 B
Diff

--- lib-src/libnyquist/nyquist/xlisp/xlbfun.c
+++ lib-src/libnyquist/nyquist/xlisp/xlbfun.c
@@ -603,6 +603,7 @@
{
xllastarg();
xlcleanup();
+ return (NIL);
}
/* xtoplevel - special form 'top-level' */
@@ -610,6 +611,7 @@
{
xllastarg();
xltoplevel();
+ return (NIL);
}
/* xcontinue - special form 'continue' */
@@ -617,6 +619,7 @@
{
xllastarg();
xlcontinue();
+ return (NIL);
}
/* xevalhook - eval hook function */
--- lib-src/libnyquist/nyquist/xlisp/xlread.c
+++ lib-src/libnyquist/nyquist/xlisp/xlread.c
@@ -240,6 +240,8 @@
/* handle illegal characters */
else
xlerror("illegal character",cvfixnum((FIXTYPE)ch));
+
+ return (FALSE);
}
/* rmhash - read macro for '#' */