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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-04 08:48:15 -0800 (Wed, 04 Jan 2006)
New Revision: 2781

Modified:
   branches/r5rs/sigscheme/TODO
   branches/r5rs/sigscheme/operations-srfi23.c
Log:
* sigscheme/operations-srfi6.c
  - (scm_initialize_srfi23, scm_p_srfi23_error): Cosmetic change
* sigscheme/TODO
  - Update


Modified: branches/r5rs/sigscheme/TODO
===================================================================
--- branches/r5rs/sigscheme/TODO	2006-01-04 16:44:06 UTC (rev 2780)
+++ branches/r5rs/sigscheme/TODO	2006-01-04 16:48:15 UTC (rev 2781)
@@ -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-srfi{1,2,8,23,34,60}.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{1,2,8,34,60}.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-srfi23.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi23.c	2006-01-04 16:44:06 UTC (rev 2780)
+++ branches/r5rs/sigscheme/operations-srfi23.c	2006-01-04 16:48:15 UTC (rev 2781)
@@ -1,6 +1,6 @@
 /*===========================================================================
  *  FileName : operations-srfi23.c
- *  About    : srfi23 Error reporting mechanism
+ *  About    : SRFI-23 Error reporting mechanism
  *
  *  Copyright (C) 2005-2006 Kazuki Ohta <mover AT hct.zaq.ne.jp>
  *
@@ -63,9 +63,6 @@
 void
 scm_initialize_srfi23(void)
 {
-    /*=======================================================================
-      SRFI-23 Procedure
-    =======================================================================*/
     REGISTER_FUNC_TABLE(srfi23_func_info_table);
 }
 
@@ -90,6 +87,7 @@
 {
     ScmObj err_obj;
     DECLARE_FUNCTION("error", procedure_variadic_1);
+
 #if 0
     /*
      * Although SRFI-23 specified that "The argument <reason> should be a