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-19 12:04:00 +00:00
parent 6e6d3f0fa9
commit 324676bbe1
9 changed files with 300 additions and 219 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
ase/test/lsp/lisp.c
View File

@ -176,9 +176,14 @@ int xp_main (int argc, xp_char_t* argv[])
xp_sio_puts (xp_sio_out, XP_TEXT("\n"));
}
else {
if (lsp->errnum == XP_LSP_ERR_ABORT) break;
int errnum;
xp_char_t errstr[256];
errnum = xp_lsp_error (lsp, errstr, xp_countof(errstr));
if (errnum == XP_LSP_ERR_ABORT) break;
xp_fprintf (xp_stderr,
XP_TEXT("error while evaluating: %d\n"), lsp->errnum);
XP_TEXT("error: [%d] %s\n"),
errnum, errstr);
}
}

2
ase/test/lsp/t1.lsp
View File

@ -11,6 +11,6 @@
;;;;;;;
(setq init-rand (macro (seed) (lambda () (setq seed (+ seed 1)))))
(setq init-rand (lambda (seed) (lambda () (setq seed (+ seed 1)))))
(setq rand (init-rand 1))
(set 'rand (init-rand 1))
(rand)