mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

* stacks.c (scm_frame_procedure): Reverse the logic in the return

Browse source 
statement.  (Thanks to Doug Evans for pointing this out.)
This commit is contained in:
Tim Pierce 1997-12-02 17:34:07 +00:00
parent c06768c880
commit afa92d1965
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/stacks.c
View file

@ -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);