diff -ru src/part.c b/part.c
--- src/part.c	Thu May 14 06:01:00 2009 -0400
+++ b/part.c 	Thu May 14 06:01:00 2009 -0400
@@ -1767,8 +1767,8 @@
 /* to compute number of partitions */
 {
     INT erg = OK;
-    if (ni<0) return;
-    if (not EMPTYP(S_V_I(vec,ni))) return;
+    if (ni<0) return 0;
+    if (not EMPTYP(S_V_I(vec,ni))) return 0;
     else if (ni<=1) M_I_I(1,S_V_I(vec,ni));
     else {
     
 src='https://git.koszko.org/cgit-static/cgit.png' alt='cgit logo'/></a></td>
<td class='main'><a href='/'>index</a> : <a href='/guix/'>guix</a></td><td class='form'><form method='get'>
<input type='hidden' name='id' value='0105b8624dbba539677ebbfd0dc0bd35143c6fad'/><select name='h' onchange='this.form.submit();'>
<option value='koszko' selected='selected'>koszko</option>
<option value='koszko-scripts'>koszko-scripts</option>
</select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Wojtek's customized Guix</td><td class='sub right'></td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=0105b8624dbba539677ebbfd0dc0bd35143c6fad'>refs</a><a class='active' href='/guix/log/gnu/packages/ftp.scm'>log</a><a href='/guix/tree/gnu/packages/ftp.scm?id=0105b8624dbba539677ebbfd0dc0bd35143c6fad'>tree</a><a href='/guix/commit/gnu/packages/ftp.scm?id=0105b8624dbba539677ebbfd0dc0bd35143c6fad'>commit</a><a href='/guix/diff/gnu/packages/ftp.scm?id=0105b8624dbba539677ebbfd0dc0bd35143c6fad'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/ftp.scm'>
<input type='hidden' name='id' value='0105b8624dbba539677ebbfd0dc0bd35143c6fad'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=0105b8624dbba539677ebbfd0dc0bd35143c6fad'>root</a>/<a href='/guix/log/gnu?id=0105b8624dbba539677ebbfd0dc0bd35143c6fad'>gnu</a>/<a href='/guix/log/gnu/packages?id=0105b8624dbba539677ebbfd0dc0bd35143c6fad'>packages</a>/<a href='/guix/log/gnu/packages/ftp.scm?id=0105b8624dbba539677ebbfd0dc0bd35143c6fad'>ftp.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/ftp.scm?id=0105b8624dbba539677ebbfd0dc0bd35143c6fad&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-10-07 13:54:50 +0200'>20<tr><td><span title='2022-07-31 21:55:43 -0400'>2022-07-31</span></td><td><a href='/guix/commit/gnu/packages/printers.scm?id=1ef04fb2288dade3ad2883026ae286a68ef13a1e'>gnu: qtsvg: Rename variable to qtsvg-5.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
/span></td><td><a href='/guix/commit/gnu/packages/ftp.scm?id=0eca1c5de4782392715c859791a127ad4cf952d1'>gnu: libfilezilla: Don't build static library.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-10-07 13:54:50 +0200'>2020-10-07</span></td><td><a href='/guix/commit/gnu/packages/ftp.scm?id=df7ebbd9bd7c430ee396295ddde1ba32f45af246'>gnu: filezilla, libfilezilla: Update to 3.50.0, 0.24.1.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-08-16 03:47:13 +0200'>2020-08-16</span></td><td><a href='/guix/commit/gnu/packages/ftp.scm?id=3a4a5be1700a24e2700f9d256212348dfc05c4d7'>gnu: lftp: Update to 4.9.2.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
'msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2022-08-07 02:00:01 +0200'>2022-08-07</span></td><td><a href='/guix/commit/gnu/packages/cups.scm?id=3746b4ab86e72871bd77ad993ea1d4c83a59088a'>gnu: cups-pk-helper: Update to 0.2.7.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2022-05-29 02:00:00 +0200'>2022-05-29</span></td><td><a href='/guix/commit/gnu/packages/cups.scm?id=bc95e0c8d6aa0e993862a22bfd128e2327630711'>gnu: foomatic-filters: Use project home page.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2022-05-01 02:00:18 +0200'>2022-05-01</span></td><td><a href='/guix/commit/gnu/packages/cups.scm?id=ad99a09abe7cd58e15064f1c3f72ca1712bb290f'>gnu: epson-inkjet-printer-escpr: Use new style.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2022-05-01 02:00:18 +0200'>2022-05-01</span></td><td><a href='/guix/commit/gnu/packages/cups.scm?id=20456fd016a78d396f2a8f0c347de728167f0d99'>gnu: epson-inkjet-printer-escpr: Use HTTPS home page.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2022-05-01 02:00:18 +0200'>2022-05-01</span></td><td><a href='/guix/commit/gnu/packages/cups.scm?id=04544c8f1ca05ca70e946d57e43d0ddf2c503162'>gnu: epson-inkjet-printer-escpr: Update to 1.7.18.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>