[uim-commit] r2772 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-04 05:21:39 -0800 (Wed, 04 Jan 2006)
New Revision: 2772

Modified:
   branches/r5rs/sigscheme/TODO
   branches/r5rs/sigscheme/operations-r5rs-deepcadrs.c
Log:
* sigscheme/operations-r5rs-deepcadrs.c
  - (scm_p_caaar, scm_p_caadr, scm_p_cadar, scm_p_cdaar, scm_p_cdadr,
    scm_p_cddar, scm_p_caaaar, scm_p_caaadr, scm_p_caadar,
    scm_p_caaddr, scm_p_cadaar, scm_p_cadadr, scm_p_caddar,
    scm_p_cadddr, scm_p_cdaaar, scm_p_cdaadr, scm_p_cdadar,
    scm_p_cdaddr, scm_p_cddaar, scm_p_cddadr, scm_p_cdddar,
    scm_p_cddddr): Cosmetic change
* sigscheme/TODO
  - Update


Modified: branches/r5rs/sigscheme/TODO
===================================================================
--- branches/r5rs/sigscheme/TODO	2006-01-04 13:17:04 UTC (rev 2771)
+++ branches/r5rs/sigscheme/TODO	2006-01-04 13:21:39 UTC (rev 2772)
@@ -12,9 +12,9 @@
 * Fix all destructive expression on macros
 
 * Review and refactor all functions in syntax.c(listran, vectran,
-  qquote_internal, scm_s_quasiquote, scm_s_do),
-  operations-{r5rs-deepcadrs,srfi*}.c, encoding.[hc] and *port.[hc]
-  (other files had already been done except for the destructive exp on macros)
+  qquote_internal, scm_s_quasiquote, scm_s_do), operations-srfi*.c,
+  encoding.[hc] and *port.[hc] (other files had already been done except for
+  the destructive exp on macros)
 
 * Investigate behavior of other Scheme implementations about constant vector
   and list

Modified: branches/r5rs/sigscheme/operations-r5rs-deepcadrs.c
===================================================================
--- branches/r5rs/sigscheme/operations-r5rs-deepcadrs.c	2006-01-04 13:17:04 UTC (rev 2771)
+++ branches/r5rs/sigscheme/operations-r5rs-deepcadrs.c	2006-01-04 13:21:39 UTC (rev 2772)
@@ -1,6 +1,6 @@
 /*===========================================================================
  *  FileName : operations-r5rs-deepcadrs.c
- *  About    : deep c[ad]+r operations
+ *  About    : Deep c[ad]+r operations
  *
  *  Copyright (C) 2005-2006 Kazuki Ohta <mover AT hct.zaq.ne.jp>
  *
@@ -65,36 +65,47 @@
 scm_p_caaar(ScmObj lst)
 {
     DECLARE_FUNCTION("caaar", procedure_fixed_1);
+
     return scm_p_car( scm_p_car( scm_p_car(lst) ));
 }
+
 ScmObj
 scm_p_caadr(ScmObj lst)
 {
     DECLARE_FUNCTION("caadr", procedure_fixed_1);
+
     return scm_p_car( scm_p_car( scm_p_cdr(lst) ));
 }
+
 ScmObj
 scm_p_cadar(ScmObj lst)
 {
     DECLARE_FUNCTION("cadar", procedure_fixed_1);
+
     return scm_p_car( scm_p_cdr( scm_p_car(lst) ));
 }
+
 ScmObj
 scm_p_cdaar(ScmObj lst)
 {
     DECLARE_FUNCTION("cdaar", procedure_fixed_1);
+
     return scm_p_cdr( scm_p_car( scm_p_car(lst) ));
 }
+
 ScmObj
 scm_p_cdadr(ScmObj lst)
 {
     DECLARE_FUNCTION("cdadr", procedure_fixed_1);
+
     return scm_p_cdr( scm_p_car( scm_p_cdr(lst) ));
 }
+
 ScmObj
 scm_p_cddar(ScmObj lst)
 {
     DECLARE_FUNCTION("cddar", procedure_fixed_1);
+
     return scm_p_cdr( scm_p_cdr( scm_p_car(lst) ));
 }
 
@@ -102,95 +113,126 @@
 scm_p_caaaar(ScmObj lst)
 {
     DECLARE_FUNCTION("caaaar", procedure_fixed_1);
+
     return scm_p_car( scm_p_car( scm_p_car( scm_p_car(lst) )));
 }
+
 ScmObj
 scm_p_caaadr(ScmObj lst)
 {
     DECLARE_FUNCTION("caaadr", procedure_fixed_1);
+
     return scm_p_car( scm_p_car( scm_p_car( scm_p_cdr(lst) )));
 }
+
 ScmObj
 scm_p_caadar(ScmObj lst)
 {
     DECLARE_FUNCTION("caadar", procedure_fixed_1);
+
     return scm_p_car( scm_p_car( scm_p_cdr( scm_p_car(lst) )));
 }
+
 ScmObj
 scm_p_caaddr(ScmObj lst)
 {
     DECLARE_FUNCTION("caaddr", procedure_fixed_1);
+
     return scm_p_car( scm_p_car( scm_p_cdr( scm_p_cdr(lst) )));
 }
+
 ScmObj
 scm_p_cadaar(ScmObj lst)
 {
     DECLARE_FUNCTION("cadaar", procedure_fixed_1);
+
     return scm_p_car( scm_p_cdr( scm_p_car( scm_p_car(lst) )));
 }
+
 ScmObj
 scm_p_cadadr(ScmObj lst)
 {
     DECLARE_FUNCTION("cadadr", procedure_fixed_1);
+
     return scm_p_car( scm_p_cdr( scm_p_car( scm_p_cdr(lst) )));
 }
+
 ScmObj
 scm_p_caddar(ScmObj lst)
 {
     DECLARE_FUNCTION("caddar", procedure_fixed_1);
+
     return scm_p_car( scm_p_cdr( scm_p_cdr( scm_p_car(lst) )));
 }
+
 ScmObj
 scm_p_cadddr(ScmObj lst)
 {
     DECLARE_FUNCTION("cadddr", procedure_fixed_1);
+
     return scm_p_car( scm_p_cdr( scm_p_cdr( scm_p_cdr(lst) )));
 }
+
 ScmObj
 scm_p_cdaaar(ScmObj lst)
 {
     DECLARE_FUNCTION("cdaaar", procedure_fixed_1);
+
     return scm_p_cdr( scm_p_car( scm_p_car( scm_p_car(lst) )));
 }
+
 ScmObj
 scm_p_cdaadr(ScmObj lst)
 {
     DECLARE_FUNCTION("cdaadr", procedure_fixed_1);
+
     return scm_p_cdr( scm_p_car( scm_p_car( scm_p_cdr(lst) )));
 }
+
 ScmObj
 scm_p_cdadar(ScmObj lst)
 {
     DECLARE_FUNCTION("cdadar", procedure_fixed_1);
+
     return scm_p_cdr( scm_p_car( scm_p_cdr( scm_p_car(lst) )));
 }
+
 ScmObj
 scm_p_cdaddr(ScmObj lst)
 {
     DECLARE_FUNCTION("cdaddr", procedure_fixed_1);
+
     return scm_p_cdr( scm_p_car( scm_p_cdr( scm_p_cdr(lst) )));
 }
+
 ScmObj
 scm_p_cddaar(ScmObj lst)
 {
     DECLARE_FUNCTION("cddaar", procedure_fixed_1);
+
     return scm_p_cdr( scm_p_cdr( scm_p_car( scm_p_car(lst) )));
 }
+
 ScmObj
 scm_p_cddadr(ScmObj lst)
 {
     DECLARE_FUNCTION("cddadr", procedure_fixed_1);
+
     return scm_p_cdr( scm_p_cdr( scm_p_car( scm_p_cdr(lst) )));
 }
+
 ScmObj
 scm_p_cdddar(ScmObj lst)
 {
     DECLARE_FUNCTION("cdddar", procedure_fixed_1);
+
     return scm_p_cdr( scm_p_cdr( scm_p_cdr( scm_p_car(lst) )));
 }
+
 ScmObj
 scm_p_cddddr(ScmObj lst)
 {
     DECLARE_FUNCTION("cddddr", procedure_fixed_1);
+
     return scm_p_cdr( scm_p_cdr( scm_p_cdr( scm_p_cdr(lst) )));
 }