[1097] in Coldmud discussion meeting
[COLD] *sigh* A bugfix
daemon@ATHENA.MIT.EDU (Wed Oct 2 15:18:37 1996
)
Date: Wed, 2 Oct 1996 20:48:38 +0200 (MET DST)
From: Miroslav Silovic <silovic@public.srce.hr>
To: coldstuff@cold.org
The /only/ function I didn't consider worth testing was bugged. Fix:
NATIVE_METHOD(is_lower) {
Int i,len;
cList *l1,*l2;
INIT_2_ARGS(LIST,LIST);
l1=LIST1;
l2=LIST2;
if (!check_vectors (l1,l2,&len))
RETURN_FALSE;
for (i=0; i<len; i++) {
Float p,q;
p=list_elem(l1,i)->u.fval;
q=list_elem(l2,i)->u.fval;
if (p>=q) {
CLEAN_RETURN_INTEGER(0);
}
}
CLEAN_RETURN_INTEGER(1);
}
Miro