diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2003-06-04 05:28:34 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2003-06-04 05:28:34 +0000 |
commit | d0624e391be5f644a301e31df9ea54386e2cd7e5 (patch) | |
tree | bd5ba87eec78919116d37505e01caa294ce24ef4 /libguile/debug.c | |
parent | e90c3a895d37efba2a31995ec85984ec205db974 (diff) | |
download | guile-d0624e391be5f644a301e31df9ea54386e2cd7e5.tar.gz |
* __scm.h, gc-card.c (SCM_DEBUG_DEBUGGER_SUPPORT,
SCM_DEBUG_DEBUGGING_SUPPORT): Renamed macro
SCM_DEBUG_DEBUGGER_SUPPORT to SCM_DEBUG_DEBUGGING_SUPPORT and
generalized it to apply not only to C level functions but also to
scheme level functions.
* debug.c, debug.h, eval.c (make-iloc, scm_make_iloc, iloc?,
scm_iloc_p, dbg-make-iloc, scm_dbg_make_iloc, dbg-iloc?,
scm_dbg_iloc_p): Moved functions scm_make_iloc, scm_iloc_p to
eval.c, made them available under SCM_DEBUG_DEBUGGING_SUPPORT == 1
only and renamed them to scm_dbg_make_iloc, scm_dbg_iloc_p,
respectively.
* deprecated.h, eval.c, eval.h (SCM_ILOC00, SCM_IDINC,
SCM_IDSTMSK): Deprecated. The macro definitions are moved from
eval.h into eval.c and a copy is placed into deprecated.h.
* eval.c, eval.h (SCM_MAKE_ILOC): Removed from eval.h and placed
into eval.c. This definition was not part of the API in any
officially released version of guile and thus does not need to go
through a phase of deprecation.
Diffstat (limited to 'libguile/debug.c')
-rw-r--r-- | libguile/debug.c | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/libguile/debug.c b/libguile/debug.c index c9ced6fed..2ec0a0c8c 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -211,29 +211,6 @@ scm_make_memoized (SCM exp, SCM env) #include "libguile/variable.h" #include "libguile/procs.h" -SCM_DEFINE (scm_make_iloc, "make-iloc", 3, 0, 0, - (SCM frame, SCM binding, SCM cdrp), - "Return a new iloc with frame offset @var{frame}, binding\n" - "offset @var{binding} and the cdr flag @var{cdrp}.") -#define FUNC_NAME s_scm_make_iloc -{ - SCM_VALIDATE_INUM (1, frame); - SCM_VALIDATE_INUM (2, binding); - return SCM_MAKE_ILOC (SCM_INUM (frame), - SCM_INUM (binding), - !SCM_FALSEP (cdrp)); -} -#undef FUNC_NAME - -SCM_DEFINE (scm_iloc_p, "iloc?", 1, 0, 0, - (SCM obj), - "Return @code{#t} if @var{obj} is an iloc.") -#define FUNC_NAME s_scm_iloc_p -{ - return SCM_BOOL(SCM_ILOCP (obj)); -} -#undef FUNC_NAME - SCM_DEFINE (scm_memcons, "memcons", 2, 1, 0, (SCM car, SCM cdr, SCM env), "Return a new memoized cons cell with @var{car} and @var{cdr}\n" |