HCoop / bpt / guile.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: b7f10de) | patch
Add SCM_F_DYNSTACK_PROMPT_PUSH_NARGS prompt flag
authorAndy Wingo <wingo@igalia.com>
Mon, 14 Oct 2013 14:05:45 +0000 (16:05 +0200)
committerAndy Wingo <wingo@igalia.com>
Mon, 14 Oct 2013 14:05:45 +0000 (16:05 +0200)
commitc6cd692f08eee7d02249d6891324511bf81aee20
treeb1a451d967b3d6d21b5052a6fda9985954e3a793tree | snapshot (tar.gz zip)
parentb7f10defe61fd9febbf6c3e68a034d797b2c62c0commit | diff
Add SCM_F_DYNSTACK_PROMPT_PUSH_NARGS prompt flag

* libguile/dynstack.h (scm_t_dynstack_prompt_flags): New flag,
  SCM_F_DYNSTACK_PROMPT_PUSH_NARGS, set if the continuation expects the
  number of args to be pushed on the top of the stack.

* libguile/control.c (scm_c_abort): Only push nargs if requested.

* libguile/eval.c (eval):
* libguile/throw.c (pre_init_catch):
* libguile/vm-i-system.c (prompt): Set
  SCM_F_DYNSTACK_PROMPT_PUSH_NARGS.
libguile/control.c diff | blob | blame | history
libguile/dynstack.h diff | blob | blame | history
libguile/eval.c diff | blob | blame | history
libguile/throw.c diff | blob | blame | history
libguile/vm-i-system.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.