mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-05 17:20:18 +02:00
Code Activity

* debug.c: Only include `debug-hang' if GUILE_DEBUG is defined.

Browse source
This commit is contained in:
Mikael Djurfeldt 1997-03-08 14:43:29 +00:00
parent 280e515a28
commit fe57f6521f
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/debug.c
View file

@ -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_PROC (s_debug_hang, "debug-hang", 0, 1, 0, scm_debug_hang);
SCM SCM
@ -395,6 +397,7 @@ scm_debug_hang (obj)
while (!go) ; while (!go) ;
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;
} }
#endif