mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-19 19:20:23 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-05 05:48:59 +00:00
parent ea9c5daba0
commit 46cd9a346f
20 changed files with 207 additions and 715 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/vm_engine.h
View file

@ -209,19 +209,6 @@ do { \
*sp = l; \
} while (0)
#define POP_LIST_MARK() \
do { \
SCM x; \
SCM l = SCM_EOL; \
POP (x); \
while (!SCM_UNBNDP (x)) \
{ \
CONS (l, x, l); \
POP (x); \
} \
PUSH (l); \
} while (0)
/*
* Instruction operation