diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-03-08 14:43:29 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-03-08 14:43:29 +0000 |
commit | fe57f6521ffbd224f6c0ec80893a1d5de317cbad (patch) | |
tree | 98973352be869d5a6fbb8e2d852a18abc7c93c31 /libguile/debug.c | |
parent | 280e515a287a91fdb01a497d3267606ac8a7cb4a (diff) | |
download | guile-fe57f6521ffbd224f6c0ec80893a1d5de317cbad.tar.gz |
* debug.c: Only include `debug-hang' if GUILE_DEBUG is defined.
Diffstat (limited to 'libguile/debug.c')
-rw-r--r-- | libguile/debug.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/libguile/debug.c b/libguile/debug.c index 6a42d42e6..9fbc950a3 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -385,6 +385,8 @@ scm_make_debugobj (frame) +/* Undocumented debugging procedure */ +#ifdef GUILE_DEBUG SCM_PROC (s_debug_hang, "debug-hang", 0, 1, 0, scm_debug_hang); SCM @@ -395,6 +397,7 @@ scm_debug_hang (obj) while (!go) ; return SCM_UNSPECIFIED; } +#endif |