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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-18 19:37:31 -0800 (Sun, 18 Dec 2005)
New Revision: 2652

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


Modified: branches/r5rs/sigscheme/operations-srfi60.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi60.c	2005-12-19 02:54:43 UTC (rev 2651)
+++ branches/r5rs/sigscheme/operations-srfi60.c	2005-12-19 03:37:31 UTC (rev 2652)
@@ -83,23 +83,16 @@
 void
 scm_initialize_srfi60(void)
 {
-    /*=======================================================================
-      SRFI-60 Procedures
-    =======================================================================*/
     REGISTER_FUNC_TABLE(srfi60_func_info_table);
 
-    scm_define_alias("bitwise-and"            , "logand");
-    scm_define_alias("bitwise-ior"            , "logior");
-    scm_define_alias("bitwise-xor"            , "logxor");
-    scm_define_alias("bitwise-not"            , "lognot");
-    scm_define_alias("bitwise-merge"          , "bitwise-if");
-    scm_define_alias("any-bits-set?"          , "logtest");
+    scm_define_alias("bitwise-and",   "logand");
+    scm_define_alias("bitwise-ior",   "logior");
+    scm_define_alias("bitwise-xor",   "logxor");
+    scm_define_alias("bitwise-not",   "lognot");
+    scm_define_alias("bitwise-merge", "bitwise-if");
+    scm_define_alias("any-bits-set?", "logtest");
 }
 
-/*=============================================================================
-  SRFI-60 : Integers as Bits
-=============================================================================*/
-
 /* Bitwise Operations */
 ScmObj scm_p_srfi60_logand(ScmObj left, ScmObj right,
                            enum ScmReductionState *state)