/[radius]/radius/radiusd/scheme.c
ViewVC logotype

Diff of /radius/radiusd/scheme.c

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

revision 1.39 by gray, Thu Jun 5 17:32:57 2003 UTC revision 1.40 by gray, Tue Jun 10 13:11:42 2003 UTC
# Line 210  scheme_read_eval_loop() Line 210  scheme_read_eval_loop()
210          printf("%d\n", status);          printf("%d\n", status);
211  }  }
212    
213    static SCM
214    eval_close_port(void *port)
215    {
216            scm_close_port((SCM)port);
217            return SCM_BOOL_F;
218    }
219    
220  void  void
221  silent_close_port(SCM port)  silent_close_port(SCM port)
222  {  {
# Line 218  silent_close_port(SCM port) Line 225  silent_close_port(SCM port)
225          if (setjmp(jmp_env))          if (setjmp(jmp_env))
226                  return;                  return;
227          scm_internal_lazy_catch(SCM_BOOL_T,          scm_internal_lazy_catch(SCM_BOOL_T,
228                                  scm_close_port, (void*)port,                                  eval_close_port, (void*)port,
229                                  eval_catch_handler, &jmp_env);                                  eval_catch_handler, &jmp_env);
230  }  }
231    

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

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