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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-04 04:52:04 -0800 (Wed, 04 Jan 2006)
New Revision: 2770

Modified:
   branches/r5rs/sigscheme/TODO
   branches/r5rs/sigscheme/operations-nonstd.c
Log:
* sigscheme/operations-nonstd.c
  - (scm_initialize_nonstd_features, scm_p_load_path,
    make_loaded_str): Cosmetic change
  - (scm_p_symbol_boundp):
    * Ditto
    * Cleanup variable declaration
  - Include required files for future separate compilation
* sigscheme/TODO
  - Update


Modified: branches/r5rs/sigscheme/TODO
===================================================================
--- branches/r5rs/sigscheme/TODO	2006-01-04 12:33:49 UTC (rev 2769)
+++ branches/r5rs/sigscheme/TODO	2006-01-04 12:52:04 UTC (rev 2770)
@@ -13,7 +13,7 @@
 
 * Review and refactor all functions in syntax.c(listran, vectran,
   qquote_internal, scm_s_quasiquote, scm_s_do),
-  operations-{nonstd,siod,r5rs-deepcadrs,srfi*}.c, encoding.[hc] and *port.[hc]
+  operations-{siod,r5rs-deepcadrs,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

Modified: branches/r5rs/sigscheme/operations-nonstd.c
===================================================================
--- branches/r5rs/sigscheme/operations-nonstd.c	2006-01-04 12:33:49 UTC (rev 2769)
+++ branches/r5rs/sigscheme/operations-nonstd.c	2006-01-04 12:52:04 UTC (rev 2770)
@@ -35,10 +35,14 @@
 /*=======================================
   System Include
 =======================================*/
+#include <stddef.h>
+#include <stdio.h>
 
 /*=======================================
   Local Include
 =======================================*/
+#include "sigscheme.h"
+#include "sigschemeinternal.h"
 
 /*=======================================
   File Local Macro Definitions
@@ -67,6 +71,7 @@
 scm_initialize_nonstd_features(void)
 {
     REGISTER_FUNC_TABLE(nonstd_func_info_table);
+
     scm_define_alias("call/cc", "call-with-current-continuation");
 }
 
@@ -82,7 +87,7 @@
 ScmObj
 scm_p_symbol_boundp(ScmObj sym, ScmObj rest)
 {
-    ScmObj env = SCM_INVALID;
+    ScmObj env;
     DECLARE_FUNCTION("symbol-bound?", procedure_variadic_1);
 
     ENSURE_SYMBOL(sym);
@@ -102,6 +107,7 @@
 scm_p_load_path(void)
 {
     DECLARE_FUNCTION("load-path", procedure_fixed_0);
+
     return MAKE_IMMUTABLE_STRING_COPYING(scm_lib_path);
 }
 
@@ -164,7 +170,7 @@
     char *loaded_str;
     size_t size;
 
-    size = (strlen(filename) + sizeof("*-loaded*"));
+    size = strlen(filename) + sizeof("*-loaded*");
     loaded_str = scm_malloc(size);
     snprintf(loaded_str, size, "*%s-loaded*", filename);