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
2005-09-24 08:16:02 +00:00
parent 16e9055337
commit 09ec0a1f10
5 changed files with 29 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ase/lsp/prim_let.c
View File

@@ -1,5 +1,5 @@
/*
* $Id: prim_let.c,v 1.2 2005-09-20 09:17:06 bacon Exp $
* $Id: prim_let.c,v 1.3 2005-09-24 08:16:02 bacon Exp $
*/
#include <xp/lsp/prim.h>
@@ -17,7 +17,7 @@ static xp_lsp_obj_t* __prim_let (
// create a new frame
frame = xp_lsp_frame_new ();
if (frame == XP_NULL) {
lsp->errnum = XP_LSP_ERR_MEM;
lsp->errnum = XP_LSP_ERR_MEMORY;
return XP_NULL;
}
//frame->link = lsp->mem->frame;
@@ -72,7 +72,7 @@ static xp_lsp_obj_t* __prim_let (
return XP_NULL;
}
if (xp_lsp_frame_insert_value(frame, n, v) == XP_NULL) {
lsp->errnum = XP_LSP_ERR_MEM;
lsp->errnum = XP_LSP_ERR_MEMORY;
if (sequential) lsp->mem->frame = frame->link;
else lsp->mem->brooding_frame = frame->link;
xp_lsp_frame_free (frame);
@@ -88,7 +88,7 @@ static xp_lsp_obj_t* __prim_let (
return XP_NULL;
}
if (xp_lsp_frame_insert_value(frame, ass, lsp->mem->nil) == XP_NULL) {
lsp->errnum = XP_LSP_ERR_MEM;
lsp->errnum = XP_LSP_ERR_MEMORY;
if (sequential) lsp->mem->frame = frame->link;
else lsp->mem->brooding_frame = frame->link;
xp_lsp_frame_free (frame);