/[guile]/guile/guile-core/libguile/throw.c
ViewVC logotype

Diff of /guile/guile-core/libguile/throw.c

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

revision 1.88 by ttn, Mon Jul 9 07:36:48 2001 UTC revision 1.89 by ossau, Tue Jan 22 23:31:39 2002 UTC
# Line 58  Line 58 
58  #include "libguile/stacks.h"  #include "libguile/stacks.h"
59  #include "libguile/fluids.h"  #include "libguile/fluids.h"
60  #include "libguile/ports.h"  #include "libguile/ports.h"
61    #include "libguile/lang.h"
62    
63  #include "libguile/validate.h"  #include "libguile/validate.h"
64  #include "libguile/throw.h"  #include "libguile/throw.h"
# Line 401  scm_handle_by_proc_catching_all (void *h Line 402  scm_handle_by_proc_catching_all (void *h
402  int  int
403  scm_exit_status (SCM args)  scm_exit_status (SCM args)
404  {  {
405    if (SCM_NNULLP (args))    if (!SCM_NULL_OR_NIL_P (args))
406      {      {
407        SCM cqa = SCM_CAR (args);        SCM cqa = SCM_CAR (args);
408                

Legend:
Removed from v.1.88  
changed lines
  Added in v.1.89

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