mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

Replaced SCM_CAR, etc with scm_car, etc.

Browse source
This commit is contained in:
Marius Vollmer 2004-09-22 17:48:13 +00:00
parent a7633ed60e
commit 5e9e56edda
1 changed files with 15 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

30
libguile/gh_list.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997, 2000, 2001 Free Software Foundation, Inc.
/* Copyright (C) 1995,1996,1997, 2000, 2001, 2004 Free Software Foundation, Inc.
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
@ -79,77 +79,77 @@ gh_cons (SCM x, SCM y)
SCM
gh_car (SCM x)
{
return SCM_CAR (x);
return scm_car (x);
}
/* analogous to the Scheme cdr operator */
SCM
gh_cdr (SCM x)
{
return SCM_CDR (x);
return scm_cdr (x);
}
/* now for the multiple car/cdr utility procedures */
SCM
gh_caar (SCM x)
{
return SCM_CAAR (x);
return scm_caar (x);
}
SCM
gh_cadr (SCM x)
{
return SCM_CADR (x);
return scm_cadr (x);
}
SCM
gh_cdar (SCM x)
{
return SCM_CDAR (x);
return scm_cdar (x);
}
SCM
gh_cddr (SCM x)
{
return SCM_CDDR (x);
return scm_cddr (x);
}
SCM
gh_caaar (SCM x)
{
return SCM_CAAAR (x);
return scm_caaar (x);
}
SCM
gh_caadr (SCM x)
{
return SCM_CAADR (x);
return scm_caadr (x);
}
SCM
gh_cadar (SCM x)
{
return SCM_CADAR (x);
return scm_cadar (x);
}
SCM
gh_caddr (SCM x)
{
return SCM_CADDR (x);
return scm_caddr (x);
}
SCM
gh_cdaar (SCM x)
{
return SCM_CDAAR (x);
return scm_cdaar (x);
}
SCM
gh_cdadr (SCM x)
{
return SCM_CDADR (x);
return scm_cdadr (x);
}
SCM
gh_cddar (SCM x)
{
return SCM_CDDAR (x);
return scm_cddar (x);
}
SCM
gh_cdddr (SCM x)
{
return SCM_CDDDR (x);
return scm_cdddr (x);
}
/* equivalent to (set-car! pair value) */