diff options
author | Tim Pierce <twp@skepsis.com> | 1997-12-02 17:34:07 +0000 |
---|---|---|
committer | Tim Pierce <twp@skepsis.com> | 1997-12-02 17:34:07 +0000 |
commit | afa92d1965db58cde469ab08e0aa1117aa6d58fb (patch) | |
tree | 17f8fc371dfc19c9b78499e1b9d7305c3ad42a79 /libguile/stacks.c | |
parent | c06768c88045b33165c4bb6750bf5ae9a2d29c3e (diff) | |
download | guile-afa92d1965db58cde469ab08e0aa1117aa6d58fb.tar.gz |
* stacks.c (scm_frame_procedure): Reverse the logic in the return
statement. (Thanks to Doug Evans for pointing this out.)
Diffstat (limited to 'libguile/stacks.c')
-rw-r--r-- | libguile/stacks.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/stacks.c b/libguile/stacks.c index 0e6598351..abc9177f4 100644 --- a/libguile/stacks.c +++ b/libguile/stacks.c @@ -585,8 +585,8 @@ scm_frame_procedure (frame) SCM_ARG1, s_frame_procedure); return (SCM_FRAME_PROC_P (frame) - ? SCM_BOOL_F - : SCM_FRAME_PROC (frame)); + ? SCM_FRAME_PROC (frame) + : SCM_BOOL_F); } SCM_PROC(s_frame_arguments, "frame-arguments", 1, 0, 0, scm_frame_arguments); |