Hojun-Cho/clisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

return nil if false on cmp

Browse Source
This commit is contained in:
yoyo 2024-09-08 16:10:49 +09:00
parent e38c7d5eed
commit 0e6bc88cab
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
eval.c
View File

@ -228,7 +228,7 @@ fnmod(Object *env, Object *list)
return newint(gc, sum);
}
long
static long
cmp(Object *env, Object *list)
{
Object *a = eval(env, list->car);
@ -238,51 +238,56 @@ cmp(Object *env, Object *list)
return a->num - b->num;
}
static Object*
_newint(int n)
{
if(n == 0)
return &Nil;
return newint(gc, 1);
}
Object*
fneq(Object *env, Object *list)
{
return newint(gc, cmp(env, list) == 0);
return _newint(cmp(env, list) == 0);
}
Object*
fnge(Object *env, Object *list)
{
return newint(gc, cmp(env, list) >= 0);
return _newint(cmp(env, list) >= 0);
}
Object*
fngt(Object *env, Object *list)
{
return newint(gc, cmp(env, list) > 0);
return _newint(cmp(env, list) > 0);
}
Object*
fnle(Object *env, Object *list)
{
return newint(gc, cmp(env, list) <= 0);
return _newint(cmp(env, list) <= 0);
}
Object*
fnlt(Object *env, Object *list)
{
return newint(gc, cmp(env, list) < 0);
return _newint(cmp(env, list) < 0);
}
Object*
fnne(Object *env, Object *list)
{
return newint(gc, cmp(env, list) != 0);
return _newint(cmp(env, list) != 0);
}
/* if test then else */
Object*
fnif(Object *env, Object *list)
{
if(list->type != OCELL || list->cdr->type != OCELL)
error("Malformed if stmt");
Object *test = list->car;
test = eval(env, test);
if(test != &Nil)
if(eval(env, list->car)!=&Nil)
return eval(env, list->cdr->car);
if(list->cdr->cdr == &Nil)
return &Nil;