mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 12:30:32 +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

5
libguile/ChangeLog
View file

@ -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> 1997-12-01 Tim Pierce <twp@skepsis.com>
* scmconfig.h.in: Regenerated for USCORE change in ../acconfig.h. * scmconfig.h.in: Regenerated for USCORE change in ../acconfig.h.

4
libguile/stacks.c
View file

@ -585,8 +585,8 @@ scm_frame_procedure (frame)
SCM_ARG1, SCM_ARG1,
s_frame_procedure); s_frame_procedure);
return (SCM_FRAME_PROC_P (frame) 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); SCM_PROC(s_frame_arguments, "frame-arguments", 1, 0, 0, scm_frame_arguments);