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-i-system.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-i-system.c')
-rw-r--r-- | libguile/vm-i-system.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c index 1f376ab70..c7704f351 100644 --- a/libguile/vm-i-system.c +++ b/libguile/vm-i-system.c @@ -769,7 +769,7 @@ VM_DEFINE_INSTRUCTION (53, call, "call", 1, -1, 1) /* * Other interpreted or compiled call */ - if (!SCM_FALSEP (scm_procedure_p (x))) + if (!scm_is_false (scm_procedure_p (x))) { SCM args; /* At this point, the stack contains the frame, the procedure and each one @@ -848,7 +848,7 @@ VM_DEFINE_INSTRUCTION (54, goto_args, "goto/args", 1, -1, 1) /* * Other interpreted or compiled call */ - if (!SCM_FALSEP (scm_procedure_p (x))) + if (!scm_is_false (scm_procedure_p (x))) { SCM args; POP_LIST (nargs); @@ -933,7 +933,7 @@ VM_DEFINE_INSTRUCTION (57, mv_call, "mv-call", 4, -1, 1) /* * Other interpreted or compiled call */ - if (!SCM_FALSEP (scm_procedure_p (x))) + if (!scm_is_false (scm_procedure_p (x))) { SCM args; /* At this point, the stack contains the procedure and each one of its |