summaryrefslogtreecommitdiff
path: root/libguile/debug.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1997-03-08 14:43:29 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1997-03-08 14:43:29 +0000
commitfe57f6521ffbd224f6c0ec80893a1d5de317cbad (patch)
tree98973352be869d5a6fbb8e2d852a18abc7c93c31 /libguile/debug.c
parent280e515a287a91fdb01a497d3267606ac8a7cb4a (diff)
downloadguile-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.c3
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