summaryrefslogtreecommitdiff
path: root/libguile/stacks.c
diff options
context:
space:
mode:
authorTim Pierce <twp@skepsis.com>1997-12-02 17:34:07 +0000
committerTim Pierce <twp@skepsis.com>1997-12-02 17:34:07 +0000
commitafa92d1965db58cde469ab08e0aa1117aa6d58fb (patch)
tree17f8fc371dfc19c9b78499e1b9d7305c3ad42a79 /libguile/stacks.c
parentc06768c88045b33165c4bb6750bf5ae9a2d29c3e (diff)
downloadguile-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.c4
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);