/[gcl]/gcl/o/block.c
ViewVC logotype

Diff of /gcl/o/block.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.3 by camm, Tue Sep 24 19:01:45 2002 UTC
# Line 29  Foundation, 675 Mass Ave, Cambridge, MA Line 29  Foundation, 675 Mass Ave, Cambridge, MA
29  #include "include.h"  #include "include.h"
30    
31  void  void
32  Fblock(object args)  Fblock(VOL object args)
33  {  {
         object endp_temp;  
34          object *oldlex = lex_env;          object *oldlex = lex_env;
35          object id;          object id;
36          object body;          object body;
# Line 68  Fblock(object args) Line 67  Fblock(object args)
67  void  void
68  Freturn_from(object args)  Freturn_from(object args)
69  {  {
         object endp_temp;  
70          object lex_block;          object lex_block;
71          frame_ptr fr;          frame_ptr fr;
72    
# Line 96  void Line 94  void
94  Freturn(object args)  Freturn(object args)
95  {  {
96          object lex_block;          object lex_block;
         object endp_temp;  
97          frame_ptr fr;          frame_ptr fr;
98    
99          if(!endp(args) && !endp(MMcdr(args)))          if(!endp(args) && !endp(MMcdr(args)))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26