summaryrefslogtreecommitdiff
path: root/libguile/throw.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-11-28 22:52:16 +0100
committerLudovic Courtès <ludo@gnu.org>2009-11-28 22:52:16 +0100
commit8b22ed7abdc72f7a8f1844af89aa790d27857c7b (patch)
tree6a45c01126a6e1d067e36455647520ec44c0b85d /libguile/throw.c
parent5c8cefe591d465af8d8eee9ca6edb98143107a73 (diff)
downloadguile-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/throw.c')
-rw-r--r--libguile/throw.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/throw.c b/libguile/throw.c
index 2217c95ea..14153cf91 100644
--- a/libguile/throw.c
+++ b/libguile/throw.c
@@ -211,7 +211,7 @@ scm_c_catch (SCM tag,
throw_tag = jbr.throw_tag;
jbr.throw_tag = SCM_EOL;
jbr.retval = SCM_EOL;
- if (SCM_NFALSEP (vm))
+ if (scm_is_true (vm))
{
SCM_VM_DATA (vm)->sp = sp;
SCM_VM_DATA (vm)->fp = fp;
@@ -222,7 +222,7 @@ scm_c_catch (SCM tag,
- (sp + 1 - SCM_VM_DATA (vm)->stack_base)) * sizeof(SCM));
#endif
}
- else if (SCM_NFALSEP ((vm = scm_the_vm ())))
+ else if (scm_is_true ((vm = scm_the_vm ())))
{
/* oof, it's possible this catch was called before the vm was
booted... yick. anyway, try to reset the vm stack. */