hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan
2006-11-02 10:30:28 +00:00
parent 93c5c9c071
commit 1da418a3d4
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
ase/lsp/eval.c
View File

@ -1,5 +1,5 @@
/*
* $Id: eval.c,v 1.21 2006-10-30 03:34:40 bacon Exp $
* $Id: eval.c,v 1.22 2006-11-02 10:30:28 bacon Exp $
*/
#include <ase/lsp/lsp_i.h>
@ -223,7 +223,7 @@ static ase_lsp_obj_t* apply (
}
/* attach it to the brooding frame list to
* make them not to be garbage collected. */
* prevent them from begin garbage-collected. */
frame->link = mem->brooding_frame;
mem->brooding_frame = frame;
@ -241,7 +241,7 @@ static ase_lsp_obj_t* apply (
value = ASE_LSP_CAR(actual);
if (ASE_LSP_TYPE(func) != ASE_LSP_OBJ_MACRO)
{
// macro doesn't evaluate actual arguments.
/* macro doesn't evaluate actual arguments. */
value = ase_lsp_eval (lsp, value);
if (value == ASE_NULL)
{
@ -288,12 +288,12 @@ static ase_lsp_obj_t* apply (
return ASE_NULL;
}
// push the frame
/* push the frame */
mem->brooding_frame = frame->link;
frame->link = mem->frame;
mem->frame = frame;
// do the evaluation of the body
/* do the evaluation of the body */
value = mem->nil;
while (body != mem->nil)
{
@ -316,7 +316,7 @@ static ase_lsp_obj_t* apply (
/*if (ASE_LSP_CAR(func) == mem->macro) {*/
if (ASE_LSP_TYPE(func) == ASE_LSP_OBJ_MACRO)
{
value = ase_lsp_eval(lsp, value);
value = ase_lsp_eval (lsp, value);
if (value == ASE_NULL) return ASE_NULL;
}