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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

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