/[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.3 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.4 by camm, Sat Feb 15 00:38:28 2003 UTC
# Line 28  Foundation, 675 Mass Ave, Cambridge, MA Line 28  Foundation, 675 Mass Ave, Cambridge, MA
28    
29  #include "include.h"  #include "include.h"
30    
31  void  static void
32  Fblock(VOL object args)  Fblock(VOL object args)
33  {  {
34          object *oldlex = lex_env;          object *oldlex = lex_env;
# Line 64  Fblock(VOL object args) Line 64  Fblock(VOL object args)
64          lex_env = oldlex;          lex_env = oldlex;
65  }  }
66    
67  void  static void
68  Freturn_from(object args)  Freturn_from(object args)
69  {  {
70          object lex_block;          object lex_block;
# Line 90  Freturn_from(object args) Line 90  Freturn_from(object args)
90          /*  never reached  */          /*  never reached  */
91  }  }
92    
93  void  static void
94  Freturn(object args)  Freturn(object args)
95  {  {
96          object lex_block;          object lex_block;

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

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