Parent Directory | Revision Log | Patch
revision 1.26 by ttn, Thu Mar 14 03:47:42 2002 UTC | revision 1.27 by xxhanwen, Sat Jul 20 14:08:33 2002 UTC | |
---|---|---|
# | Line 85 SCM_DEFINE (scm_nil_car, "nil-car", 1, 0 | Line 85 SCM_DEFINE (scm_nil_car, "nil-car", 1, 0 |
85 | { | { |
86 | if (SCM_NILP (x)) | if (SCM_NILP (x)) |
87 | return scm_lisp_nil; | return scm_lisp_nil; |
88 | SCM_VALIDATE_CONS (1,x); | SCM_VALIDATE_CONS (1, x); |
89 | return SCM_CAR (x); | return SCM_CAR (x); |
90 | } | } |
91 | #undef FUNC_NAME | #undef FUNC_NAME |
# | Line 98 SCM_DEFINE (scm_nil_cdr, "nil-cdr", 1, 0 | Line 98 SCM_DEFINE (scm_nil_cdr, "nil-cdr", 1, 0 |
98 | { | { |
99 | if (SCM_NILP (x)) | if (SCM_NILP (x)) |
100 | return scm_lisp_nil; | return scm_lisp_nil; |
101 | SCM_VALIDATE_CONS (1,x); | SCM_VALIDATE_CONS (1, x); |
102 | return SCM_EOL2NIL (SCM_CDR (x), x); | return SCM_EOL2NIL (SCM_CDR (x), x); |
103 | } | } |
104 | #undef FUNC_NAME | #undef FUNC_NAME |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |