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

Tue Aug 23 08:04:23 PDT 2005

Author: yamaken
Date: 2005-08-23 08:04:21 -0700 (Tue, 23 Aug 2005)
New Revision: 1294

Modified:
   branches/r5rs/sigscheme/operations-srfi8.c
   branches/r5rs/sigscheme/sigscheme.c
   branches/r5rs/sigscheme/sigscheme.h
Log:
* sigscheme/sigscheme.h
  - (ScmOp_SRFI_8_receive): Rename to ScmOp_SRFI8_receive
  - (ScmOp_SRFI8_receive): Renamed from ScmOp_SRFI_8_receive
* sigscheme/operations-srfi8.c
  - (ScmOp_SRFI_8_receive): Rename to ScmOp_SRFI8_receive
  - (ScmOp_SRFI8_receive): Renamed from ScmOp_SRFI_8_receive
* sigscheme/sigscheme.c
  - (SigScm_Initialize): Follow the renaming


Modified: branches/r5rs/sigscheme/operations-srfi8.c
===================================================================

--- branches/r5rs/sigscheme/operations-srfi8.c	2005-08-23 13:53:18 UTC (rev 1293)
+++ branches/r5rs/sigscheme/operations-srfi8.c	2005-08-23 15:04:21 UTC (rev 1294)
@@ -63,7 +63,7 @@
 /*=============================================================================
   SRFI8 : Receive
 =============================================================================*/
-ScmObj ScmOp_SRFI_8_receive(ScmObj args, ScmObj *envp, int *tail_flag)
+ScmObj ScmOp_SRFI8_receive(ScmObj args, ScmObj *envp, int *tail_flag)
 {
     /*
      * (receive <formals> <expression> <body>)

Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c	2005-08-23 13:53:18 UTC (rev 1293)
+++ branches/r5rs/sigscheme/sigscheme.c	2005-08-23 15:04:21 UTC (rev 1294)
@@ -321,7 +321,7 @@
     /*=======================================================================
       SRFI-8 Procedure
     =======================================================================*/
-    Scm_RegisterFuncR("receive"              , ScmOp_SRFI_8_receive);
+    Scm_RegisterFuncR("receive"              , ScmOp_SRFI8_receive);
 #endif
 
 #if SCM_COMPAT_SIOD

Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2005-08-23 13:53:18 UTC (rev 1293)
+++ branches/r5rs/sigscheme/sigscheme.h	2005-08-23 15:04:21 UTC (rev 1294)
@@ -358,7 +358,7 @@
 ScmObj ScmOp_SRFI1_iota(ScmObj args, ScmObj env);
 #endif
 #if SCM_USE_SRFI8
-ScmObj ScmOp_SRFI_8_receive(ScmObj args, ScmObj *envp, int *tail_flag);
+ScmObj ScmOp_SRFI8_receive(ScmObj args, ScmObj *envp, int *tail_flag);
 #endif
 
 #ifdef __cplusplus

