summaryrefslogtreecommitdiff
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
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.)
-rw-r--r--libguile/ChangeLog5
-rw-r--r--libguile/stacks.c4
2 files changed, 7 insertions, 2 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index b3af4b987..4cf1e326b 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+1997-12-02 Tim Pierce <twp@skepsis.com>
+
+ * stacks.c (scm_frame_procedure): Reverse the logic in the return
+ statement. (Thanks to Doug Evans for pointing this out.)
+
1997-12-01 Tim Pierce <twp@skepsis.com>
* scmconfig.h.in: Regenerated for USCORE change in ../acconfig.h.
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);