[1097] in Coldmud discussion meeting

root meeting help first previous next last

[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