mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

Remove remaining uses of discouraged constructs, really.

Browse source 
* libguile/throw.c, libguile/vm-engine.h, libguile/vm-i-system.c,
  libguile/vm.c:  Replace uses of discouraged constructs by their
  current counterparts.
This commit is contained in:
Ludovic Courtès 2009-11-28 22:52:16 +01:00
parent 5c8cefe591
commit 8b22ed7abd
4 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/vm-engine.h
View file

@ -208,7 +208,7 @@
#if VM_USE_HOOKS
#define RUN_HOOK(h) \
{ \
if (SCM_UNLIKELY (!SCM_FALSEP (vp->hooks[h])))\
if (SCM_UNLIKELY (scm_is_true (vp->hooks[h])))\
{ \
SYNC_REGISTER (); \
vm_dispatch_hook (vp, vp->hooks[h], hook_args); \