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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-18 18:54:43 -0800 (Sun, 18 Dec 2005)
New Revision: 2651

Modified:
   branches/r5rs/sigscheme/error.c
   branches/r5rs/sigscheme/eval.c
   branches/r5rs/sigscheme/print.c
   branches/r5rs/sigscheme/read.c
   branches/r5rs/sigscheme/storage-gc.c
   branches/r5rs/sigscheme/storage.c
   branches/r5rs/sigscheme/test-compact.c
Log:
* sigscheme/read.c
  - (read_char): Replace " : " in message with ": "
* sigscheme/error.c
  - (scm_die): Ditto
* sigscheme/storage.c
  - (scm_type): Ditto
* sigscheme/storage-gc.c
  - (gc_mark_locations): Ditto
* sigscheme/test-compact.c
  - (die): Ditto
* sigscheme/eval.c
  - (call_closure): Ditto
* sigscheme/print.c
  - (print_string): Ditto


Modified: branches/r5rs/sigscheme/error.c
===================================================================
--- branches/r5rs/sigscheme/error.c	2005-12-19 02:45:44 UTC (rev 2650)
+++ branches/r5rs/sigscheme/error.c	2005-12-19 02:54:43 UTC (rev 2651)
@@ -296,7 +296,7 @@
     char *reason;
     ScmObj reason_holder;
 
-    asprintf(&reason, "%s: (file : %s, line : %d)", msg, filename, line);
+    asprintf(&reason, "%s: (file: %s, line: %d)", msg, filename, line);
     ASSERT_ALLOCATED(reason);
     /* reason will implicitly be freed via the object on GC */
     reason_holder = MAKE_IMMUTABLE_STRING(reason);

Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-12-19 02:45:44 UTC (rev 2650)
+++ branches/r5rs/sigscheme/eval.c	2005-12-19 02:54:43 UTC (rev 2651)
@@ -333,7 +333,7 @@
                                  SCM_NULL,
                                  SCM_CLOSURE_ENV(proc));
     } else {
-        ERR_OBJ("lambda : bad formals list", formals);
+        ERR_OBJ("lambda: bad formals list", formals);
     }
 
     eval_state->ret_type = SCM_RETTYPE_NEED_EVAL;

Modified: branches/r5rs/sigscheme/print.c
===================================================================
--- branches/r5rs/sigscheme/print.c	2005-12-19 02:45:44 UTC (rev 2650)
+++ branches/r5rs/sigscheme/print.c	2005-12-19 02:54:43 UTC (rev 2651)
@@ -323,7 +323,7 @@
         break;
 
     default:
-        ERR("print_string : unknown output type");
+        ERR("print_string: unknown output type");
         break;
     }
 }

Modified: branches/r5rs/sigscheme/read.c
===================================================================
--- branches/r5rs/sigscheme/read.c	2005-12-19 02:45:44 UTC (rev 2650)
+++ branches/r5rs/sigscheme/read.c	2005-12-19 02:54:43 UTC (rev 2651)
@@ -501,7 +501,7 @@
     if (err == TOKEN_BUF_EXCEEDED)
         ERR("invalid character literal");
 
-    CDBG((SCM_DBG_PARSER, "read_char : ch = %s", buf));
+    CDBG((SCM_DBG_PARSER, "read_char: ch = %s", buf));
 
 #if SCM_USE_SRFI75
     unicode = parse_unicode_sequence(buf, len + 1);

Modified: branches/r5rs/sigscheme/storage-gc.c
===================================================================
--- branches/r5rs/sigscheme/storage-gc.c	2005-12-19 02:45:44 UTC (rev 2650)
+++ branches/r5rs/sigscheme/storage-gc.c	2005-12-19 02:54:43 UTC (rev 2651)
@@ -500,7 +500,7 @@
 
     size = end - start;
 
-    CDBG((SCM_DBG_GC, "gc_mark_locations() : size = %d", size));
+    CDBG((SCM_DBG_GC, "gc_mark_locations: size = %d", size));
 
     gc_mark_locations_n(start, size);
 }

Modified: branches/r5rs/sigscheme/storage.c
===================================================================
--- branches/r5rs/sigscheme/storage.c	2005-12-19 02:45:44 UTC (rev 2650)
+++ branches/r5rs/sigscheme/storage.c	2005-12-19 02:54:43 UTC (rev 2651)
@@ -370,7 +370,7 @@
         else if (C_FUNCPOINTERP(obj))
             return ScmCFuncPointer;
 
-        ERR("invalid others object : ptr = %p, car = %p, cdr = %p",
+        ERR("invalid others object: ptr = %p, car = %p, cdr = %p",
             (void*)obj, SCM_GET_DIRECT_CAR(obj), SCM_GET_DIRECT_CDR(obj));
     } else if (SCM_TAG_IMMP(obj)) {
         if (INTP(obj))
@@ -380,11 +380,11 @@
         else if (SCM_CONSTANTP(obj))
             return ScmConstant;
 
-        ERR("invalid imm object : ptr = %p, car = %p, cdr = %p",
+        ERR("invalid imm object: ptr = %p, car = %p, cdr = %p",
             (void*)obj, SCM_GET_DIRECT_CAR(obj), SCM_GET_DIRECT_CDR(obj));
     }
 
-    ERR("corrupted object : ptr = %p, car = %p, cdr = %p",
+    ERR("corrupted object: ptr = %p, car = %p, cdr = %p",
         (void*)obj, SCM_GET_DIRECT_CAR(obj), SCM_GET_DIRECT_CDR(obj));
 }
 #endif /* SCM_OBJ_COMPACT */

Modified: branches/r5rs/sigscheme/test-compact.c
===================================================================
--- branches/r5rs/sigscheme/test-compact.c	2005-12-19 02:45:44 UTC (rev 2650)
+++ branches/r5rs/sigscheme/test-compact.c	2005-12-19 02:54:43 UTC (rev 2651)
@@ -59,7 +59,7 @@
 static int
 die(const char *filename, int line)
 {
-    printf("assertion faled. (file : %s, line : %d)\n", filename, line);
+    printf("assertion faled. (file: %s, line: %d)\n", filename, line);
     return -1;
 }