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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-20 08:38:08 -0800 (Sun, 20 Nov 2005)
New Revision: 2191

Modified:
   branches/r5rs/sigscheme/operations-siod.c
Log:
* sigscheme/operations-siod.c
  - (SigScm_Initialize_SIOD): Cosmetic change


Modified: branches/r5rs/sigscheme/operations-siod.c
===================================================================
--- branches/r5rs/sigscheme/operations-siod.c	2005-11-20 16:30:30 UTC (rev 2190)
+++ branches/r5rs/sigscheme/operations-siod.c	2005-11-20 16:38:08 UTC (rev 2191)
@@ -101,14 +101,14 @@
 =======================================*/
 void SigScm_Initialize_SIOD(void)
 {
+    REGISTER_FUNC_TABLE(siod_func_info_table);
+
     Scm_Use("srfi-60");
-    Scm_DefineAlias("bit-and"               , "logand");
-    Scm_DefineAlias("bit-or"                , "logior");
-    Scm_DefineAlias("bit-xor"               , "logxor");
-    Scm_DefineAlias("bit-not"               , "lognot");
+    Scm_DefineAlias("bit-and", "logand");
+    Scm_DefineAlias("bit-or",  "logior");
+    Scm_DefineAlias("bit-xor", "logxor");
+    Scm_DefineAlias("bit-not", "lognot");
 
-    REGISTER_FUNC_TABLE(siod_func_info_table);
-
     null_port         = SCM_FALSE;
     saved_output_port = SCM_FALSE;
     saved_error_port  = SCM_FALSE;