diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-11-28 22:52:16 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-11-28 22:52:16 +0100 |
commit | 8b22ed7abdc72f7a8f1844af89aa790d27857c7b (patch) | |
tree | 6a45c01126a6e1d067e36455647520ec44c0b85d /libguile/vm.c | |
parent | 5c8cefe591d465af8d8eee9ca6edb98143107a73 (diff) | |
download | guile-8b22ed7abdc72f7a8f1844af89aa790d27857c7b.tar.gz |
Remove remaining uses of discouraged constructs, really.
* libguile/throw.c, libguile/vm-engine.h, libguile/vm-i-system.c,
libguile/vm.c: Replace uses of discouraged constructs by their
current counterparts.
Diffstat (limited to 'libguile/vm.c')
-rw-r--r-- | libguile/vm.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/vm.c b/libguile/vm.c index 209408b33..055bbee4a 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -421,7 +421,7 @@ SCM_DEFINE (scm_the_vm, "the-vm", 0, 0, 0, { scm_i_thread *t = SCM_I_CURRENT_THREAD; - if (SCM_UNLIKELY (SCM_FALSEP ((t->vm)))) + if (SCM_UNLIKELY (scm_is_false ((t->vm)))) t->vm = make_vm (); return t->vm; @@ -482,7 +482,7 @@ SCM_DEFINE (scm_vm_fp, "vm:fp", 1, 0, 0, struct scm_vm *vp; \ SCM_VALIDATE_VM (1, vm); \ vp = SCM_VM_DATA (vm); \ - if (SCM_FALSEP (vp->hooks[n])) \ + if (scm_is_false (vp->hooks[n])) \ vp->hooks[n] = scm_make_hook (SCM_I_MAKINUM (1)); \ return vp->hooks[n]; \ } |