Parent Directory | Revision Log | Patch
revision 1.46 by ttn, Thu Mar 14 03:47:43 2002 UTC | revision 1.47 by xxhanwen, Sat Jul 20 14:08:34 2002 UTC | |
---|---|---|
# | Line 121 SCM_DEFINE (scm_primitive_exit, "primiti | Line 121 SCM_DEFINE (scm_primitive_exit, "primiti |
121 | int cstatus = 0; | int cstatus = 0; |
122 | if (!SCM_UNBNDP (status)) | if (!SCM_UNBNDP (status)) |
123 | { | { |
124 | SCM_VALIDATE_INUM (1,status); | SCM_VALIDATE_INUM (1, status); |
125 | cstatus = SCM_INUM (status); | cstatus = SCM_INUM (status); |
126 | } | } |
127 | exit (cstatus); | exit (cstatus); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |