forked from pool/audacity
Dave Plater
5b2b444c18
Copy from home:RedDwarf:branches:multimedia:apps/audacity via accept of submit request 38092 revision 3. Request was accepted with message: reviewed ok. OBS-URL: https://build.opensuse.org/request/show/38092 OBS-URL: https://build.opensuse.org/package/show/multimedia:apps/audacity?expand=0&rev=38
42 lines
1.1 KiB
Diff
42 lines
1.1 KiB
Diff
Index: lib-src/libnyquist/nyquist/xlisp/xlbfun.c
|
|
===================================================================
|
|
--- lib-src/libnyquist/nyquist/xlisp/xlbfun.c.orig
|
|
+++ lib-src/libnyquist/nyquist/xlisp/xlbfun.c
|
|
@@ -603,6 +603,7 @@ LVAL xcleanup(void)
|
|
{
|
|
xllastarg();
|
|
xlcleanup();
|
|
+ return (NIL);
|
|
}
|
|
|
|
/* xtoplevel - special form 'top-level' */
|
|
@@ -610,6 +611,7 @@ LVAL xtoplevel(void)
|
|
{
|
|
xllastarg();
|
|
xltoplevel();
|
|
+ return (NIL);
|
|
}
|
|
|
|
/* xcontinue - special form 'continue' */
|
|
@@ -617,6 +619,7 @@ LVAL xcontinue(void)
|
|
{
|
|
xllastarg();
|
|
xlcontinue();
|
|
+ return (NIL);
|
|
}
|
|
|
|
/* xevalhook - eval hook function */
|
|
Index: lib-src/libnyquist/nyquist/xlisp/xlread.c
|
|
===================================================================
|
|
--- lib-src/libnyquist/nyquist/xlisp/xlread.c.orig
|
|
+++ lib-src/libnyquist/nyquist/xlisp/xlread.c
|
|
@@ -335,6 +335,8 @@ int readone(LVAL fptr, LVAL *pval)
|
|
/* handle illegal characters */
|
|
else
|
|
xlerror("illegal character",cvfixnum((FIXTYPE)ch));
|
|
+
|
|
+ return (FALSE);
|
|
}
|
|
|
|
/* rmhash - read macro for '#' */
|