49 lines
940 B
C
49 lines
940 B
C
/*
|
|
* $Id: prim_prog.c,v 1.5 2006-10-29 13:40:33 bacon Exp $
|
|
*/
|
|
|
|
#include <ase/lsp/lsp_i.h>
|
|
|
|
ase_lsp_obj_t* ase_lsp_prim_prog1 (ase_lsp_t* lsp, ase_lsp_obj_t* args)
|
|
{
|
|
ase_lsp_obj_t* res = ASE_NULL, * tmp;
|
|
|
|
/*while (args != lsp->mem->nil) {*/
|
|
while (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS)
|
|
{
|
|
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
|
|
if (tmp == ASE_NULL) return ASE_NULL;
|
|
|
|
if (res == ASE_NULL)
|
|
{
|
|
/*
|
|
ase_lsp_arr_t* ta = lsp->mem->temp_arr;
|
|
ase_lsp_arr_insert (ta, ta->size, tmp);
|
|
*/
|
|
res = tmp;
|
|
}
|
|
args = ASE_LSP_CDR(args);
|
|
}
|
|
|
|
return res;
|
|
}
|
|
|
|
ase_lsp_obj_t* ase_lsp_prim_progn (ase_lsp_t* lsp, ase_lsp_obj_t* args)
|
|
{
|
|
ase_lsp_obj_t* res, * tmp;
|
|
|
|
res = lsp->mem->nil;
|
|
/*while (args != lsp->mem->nil) {*/
|
|
while (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS)
|
|
{
|
|
|
|
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
|
|
if (tmp == ASE_NULL) return ASE_NULL;
|
|
|
|
res = tmp;
|
|
args = ASE_LSP_CDR(args);
|
|
}
|
|
|
|
return res;
|
|
}
|