diff options
Diffstat (limited to 'libguile/vm-engine.h')
-rw-r--r-- | libguile/vm-engine.h | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/libguile/vm-engine.h b/libguile/vm-engine.h index 0d0c03d8a..936bbb48b 100644 --- a/libguile/vm-engine.h +++ b/libguile/vm-engine.h @@ -356,6 +356,19 @@ do { \ PUSH (l); \ } while (0) +#define POP_CONS_MARK() \ +do { \ + SCM o, l; \ + POP (l); \ + POP (o); \ + while (!SCM_UNBNDP (o)) \ + { \ + CONS (l, o, l); \ + POP (o); \ + } \ + PUSH (l); \ +} while (0) + /* * Instruction operation |