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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-20 07:10:26 -0800 (Sun, 20 Nov 2005)
New Revision: 2186

Modified:
   branches/r5rs/sigscheme/operations-srfi38.c
Log:
* sigscheme/operations-srfi38.c
  - (SigScm_Initialize_SRFI38): Add alias 'write/ss'


Modified: branches/r5rs/sigscheme/operations-srfi38.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi38.c	2005-11-20 15:05:36 UTC (rev 2185)
+++ branches/r5rs/sigscheme/operations-srfi38.c	2005-11-20 15:10:26 UTC (rev 2186)
@@ -61,10 +61,10 @@
 =======================================*/
 void SigScm_Initialize_SRFI38(void)
 {
-    /*=======================================================================
-      SRFI-38 Procedure
-    =======================================================================*/
     REGISTER_FUNC_TABLE(srfi38_func_info_table);
+
+    /* SRFI-38 allows providing (read/ss) and (write/ss) */
+    Scm_DefineAlias("write/ss", "write-with-shared-structure");
 }
 
 /*=============================================================================