diff options
author | Andy Wingo <wingo@pobox.com> | 2013-10-18 18:44:11 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-10-18 18:47:49 +0200 |
commit | d691ac206906d2539cb94667fd10854aafc8955a (patch) | |
tree | d8ab6e05a3bd9971fb25a0e4e9998209ffd08ced /libguile/continuations.h | |
parent | 8bd261baaa96eba005517eef5fb8d5d08f22720a (diff) | |
download | guile-d691ac206906d2539cb94667fd10854aafc8955a.tar.gz |
Continuations are RTL stubs
* libguile/continuations.h:
* libguile/continuations.c: Reimplement continuations and the call_cc
stub as RTL programs.
* libguile/programs.c (scm_i_rtl_program_minimum_arity): Add a case for
continuations.
* libguile/vm-engine.c (rtl_vm_debug_engine): Always call the abort
continuation hook with the number of non-procedure locals. Fix
compose-continuation argument count. Enable call/cc.
Diffstat (limited to 'libguile/continuations.h')
-rw-r--r-- | libguile/continuations.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/continuations.h b/libguile/continuations.h index 29ea1c1a1..e7fa16d9c 100644 --- a/libguile/continuations.h +++ b/libguile/continuations.h @@ -3,7 +3,7 @@ #ifndef SCM_CONTINUATIONS_H #define SCM_CONTINUATIONS_H -/* Copyright (C) 1995,1996,2000,2001, 2006, 2008, 2009, 2010, 2012 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,2000,2001, 2006, 2008, 2009, 2010, 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 @@ -32,7 +32,7 @@ #define SCM_CONTINUATIONP(x) \ - (SCM_PROGRAM_P (x) && SCM_PROGRAM_IS_CONTINUATION (x)) + (SCM_RTL_PROGRAM_P (x) && SCM_PROGRAM_IS_CONTINUATION (x)) /* a continuation SCM is a non-immediate pointing to a heap cell with: word 0: bits 0-15: smob type tag: scm_tc16_continuation. |