diff options
| author | Andy Wingo <wingo@pobox.com> | 2013-06-25 21:53:52 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2013-06-25 21:57:12 +0200 |
| commit | 385049949aa52b8578334d073b2c63291a5d5274 (patch) | |
| tree | caa31fc4c81c51d16cae2d555965c9bdf96875fa /libguile/control.c | |
| parent | 9833864171fa54100e97040a4f1007919ff614ad (diff) | |
| download | guile-385049949aa52b8578334d073b2c63291a5d5274.tar.gz | |
abort-to-prompt* instead of @abort
* libguile/control.h:
* libguile/control.c (scm_abort_to_prompt_star): Rename from
scm_at_abort.
* module/ice-9/boot-9.scm (abort-to-prompt): Use abort-to-prompt*.
* module/language/tree-il/primitives.scm: Handle abort-to-prompt*
instead of @abort.
Diffstat (limited to 'libguile/control.c')
| -rw-r--r-- | libguile/control.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/libguile/control.c b/libguile/control.c index 54c1cd3f4..3f2651c6b 100644 --- a/libguile/control.c +++ b/libguile/control.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2010, 2011, 2012 Free Software Foundation, Inc. +/* Copyright (C) 2010, 2011, 2012, 2013 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -223,9 +223,11 @@ scm_c_abort (SCM vm, SCM tag, size_t n, SCM *argv, abort (); } -SCM_DEFINE (scm_at_abort, "@abort", 2, 0, 0, (SCM tag, SCM args), - "Abort to the nearest prompt with tag @var{tag}.") -#define FUNC_NAME s_scm_at_abort +SCM_DEFINE (scm_abort_to_prompt_star, "abort-to-prompt*", 2, 0, 0, + (SCM tag, SCM args), + "Abort to the nearest prompt with tag @var{tag}, yielding the\n" + "values in the list, @var{args}.") +#define FUNC_NAME s_scm_abort_to_prompt_star { SCM *argv; size_t i; |