[uim-commit] r1759 - branches/r5rs/sigscheme
kzk at freedesktop.org
kzk at freedesktop.org
Mon Oct 3 01:56:46 PDT 2005
Author: kzk
Date: 2005-10-03 01:56:44 -0700 (Mon, 03 Oct 2005)
New Revision: 1759
Modified:
branches/r5rs/sigscheme/operations-siod.c
branches/r5rs/sigscheme/operations-srfi1.c
branches/r5rs/sigscheme/operations-srfi2.c
branches/r5rs/sigscheme/operations-srfi23.c
branches/r5rs/sigscheme/operations-srfi34.c
branches/r5rs/sigscheme/operations-srfi38.c
branches/r5rs/sigscheme/operations-srfi60.c
branches/r5rs/sigscheme/operations-srfi8.c
branches/r5rs/sigscheme/sigscheme.c
branches/r5rs/sigscheme/sigscheme.h
Log:
* move register SRFI and SIOD function registering and variable
initialization to each operations-*.c file
* sigscheme/operations-srfi1.c
- (SigScm_Initialize_SRFI1): new func
* sigscheme/operations-srfi2.c
- (SigScm_Initialize_SRFI2): new func
* sigscheme/operations-srfi23.c
- (SigScm_Initialize_SRFI23): new func
* sigscheme/operations-srfi34.c
- (SigScm_Initialize_SRFI34): new func
* sigscheme/operations-srfi38.c
- (SigScm_Initialize_SRFI38): new func
* sigscheme/operations-srfi60.c
- (SigScm_Initialize_SRFI60): new func
* sigscheme/operations-siod.c
- (SigScm_Initialize_SIOD): new func
* sigscheme/sigscheme.h
- (SigScm_Initialize_SRFI1): new func
- (SigScm_Initialize_SRFI2): new func
- (SigScm_Initialize_SRFI23): new func
- (SigScm_Initialize_SRFI34): new func
- (SigScm_Initialize_SRFI38): new func
- (SigScm_Initialize_SRFI60): new func
- (SigScm_Initialize_SIOD): new func
* sigscheme/sigscheme.c
- (ScmScm_Initialize_internal): call each SRFI's initialize function
Modified: branches/r5rs/sigscheme/operations-siod.c
===================================================================
--- branches/r5rs/sigscheme/operations-siod.c 2005-10-03 08:42:51 UTC (rev 1758)
+++ branches/r5rs/sigscheme/operations-siod.c 2005-10-03 08:56:44 UTC (rev 1759)
@@ -89,6 +89,30 @@
TODO : remove these functions!
=======================================*/
+void SigScm_Initialize_SIOD(void)
+{
+ /*=======================================================================
+ SIOD Compatible Variables and Procedures
+ =======================================================================*/
+ /* operations-siod.c */
+ Scm_RegisterProcedureFixed1("symbol-bound?" , ScmOp_symbol_boundp);
+ Scm_RegisterProcedureFixed1("symbol-value" , ScmOp_symbol_value);
+ Scm_RegisterProcedureFixed2("set-symbol-value!" , ScmOp_set_symbol_value);
+#if SCM_COMPAT_SIOD_BUGS
+ Scm_RegisterProcedureFixed2("=" , ScmOp_siod_eql);
+#endif
+ Scm_DefineAlias("bit-and" , "logand");
+ Scm_DefineAlias("bit-or" , "logior");
+ Scm_DefineAlias("bit-xor" , "logxor");
+ Scm_DefineAlias("bit-not" , "lognot");
+ Scm_RegisterProcedureFixedTailRec0("the-environment" , ScmOp_the_environment);
+ Scm_RegisterProcedureFixed1("%%closure-code" , ScmOp_closure_code);
+ Scm_RegisterProcedureVariadic0("verbose" , ScmOp_verbose);
+ /* datas.c */
+ scm_return_value = SCM_NULL;
+ SigScm_SetVerboseLevel(2);
+}
+
/*
* TODO:
* - generalize to SCM_USE_NONSTD_FEATURES
Modified: branches/r5rs/sigscheme/operations-srfi1.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi1.c 2005-10-03 08:42:51 UTC (rev 1758)
+++ branches/r5rs/sigscheme/operations-srfi1.c 2005-10-03 08:56:44 UTC (rev 1759)
@@ -60,6 +60,48 @@
/*=======================================
Function Implementations
=======================================*/
+void SigScm_Initialize_SRFI1(void)
+{
+ /*=======================================================================
+ SRFI-1 Procedures
+ =======================================================================*/
+ Scm_RegisterProcedureFixed1("list-copy" , ScmOp_SRFI1_list_copy);
+ Scm_RegisterProcedureFixed2("xcons" , ScmOp_SRFI1_xcons);
+ Scm_RegisterProcedureVariadic0("circular-list" , ScmOp_SRFI1_circular_list);
+ Scm_RegisterProcedureVariadic1("iota" , ScmOp_SRFI1_iota);
+ Scm_RegisterProcedureVariadic0("cons*" , ScmOp_SRFI1_cons_star);
+ Scm_RegisterProcedureVariadic1("make-list" , ScmOp_SRFI1_make_list);
+ Scm_RegisterProcedureVariadic1("list-tabulate" , ScmOp_SRFI1_list_tabulate);
+ Scm_RegisterProcedureFixed1("proper-list?" , ScmOp_SRFI1_proper_listp);
+ Scm_RegisterProcedureFixed1("circular-list?" , ScmOp_SRFI1_circular_listp);
+ Scm_RegisterProcedureFixed1("dotted-list?" , ScmOp_SRFI1_dotted_listp);
+ Scm_RegisterProcedureFixed1("not-pair?" , ScmOp_SRFI1_not_pairp);
+ Scm_RegisterProcedureFixed1("null-list?" , ScmOp_SRFI1_null_listp);
+ Scm_RegisterProcedureVariadic1("list=" , ScmOp_SRFI1_listequal);
+ Scm_RegisterProcedureFixed1("first" , ScmOp_SRFI1_first);
+ Scm_RegisterProcedureFixed1("second" , ScmOp_SRFI1_second);
+ Scm_RegisterProcedureFixed1("third" , ScmOp_SRFI1_third);
+ Scm_RegisterProcedureFixed1("fourth" , ScmOp_SRFI1_fourth);
+ Scm_RegisterProcedureFixed1("fifth" , ScmOp_SRFI1_fifth);
+ Scm_RegisterProcedureFixed1("sixth" , ScmOp_SRFI1_sixth);
+ Scm_RegisterProcedureFixed1("seventh" , ScmOp_SRFI1_seventh);
+ Scm_RegisterProcedureFixed1("eighth" , ScmOp_SRFI1_eighth);
+ Scm_RegisterProcedureFixed1("ninth" , ScmOp_SRFI1_ninth);
+ Scm_RegisterProcedureFixed1("tenth" , ScmOp_SRFI1_tenth);
+ Scm_RegisterProcedureFixed2("take" , ScmOp_SRFI1_take);
+ Scm_RegisterProcedureFixed2("drop" , ScmOp_SRFI1_drop);
+ Scm_RegisterProcedureFixed2("take-right" , ScmOp_SRFI1_take_right);
+ Scm_RegisterProcedureFixed2("drop-right" , ScmOp_SRFI1_drop_right);
+ Scm_RegisterProcedureFixed2("take!" , ScmOp_SRFI1_take_d);
+ Scm_RegisterProcedureFixed2("drop-right!" , ScmOp_SRFI1_drop_right_d);
+ Scm_RegisterProcedureFixed2("split-at" , ScmOp_SRFI1_split_at);
+ Scm_RegisterProcedureFixed2("split-at!" , ScmOp_SRFI1_split_at_d);
+ Scm_RegisterProcedureFixed1("last" , ScmOp_SRFI1_last);
+ Scm_RegisterProcedureFixed1("last-pair" , ScmOp_SRFI1_last_pair);
+ Scm_RegisterProcedureFixed1("length+" , ScmOp_SRFI1_lengthplus);
+ Scm_RegisterProcedureVariadic0("concatenate" , ScmOp_SRFI1_concatenate);
+}
+
/*==============================================================================
SRFI1 : The procedures : Constructors
==============================================================================*/
Modified: branches/r5rs/sigscheme/operations-srfi2.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi2.c 2005-10-03 08:42:51 UTC (rev 1758)
+++ branches/r5rs/sigscheme/operations-srfi2.c 2005-10-03 08:56:44 UTC (rev 1759)
@@ -61,6 +61,14 @@
/*=======================================
Function Implementations
=======================================*/
+void SigScm_Initialize_SRFI2(void)
+{
+ /*=======================================================================
+ SRFI-2 Procedure
+ =======================================================================*/
+ Scm_RegisterSyntaxVariadicTailRec1("and-let*", ScmOp_SRFI2_and_let_star);
+}
+
ScmObj ScmOp_SRFI2_and_let_star(ScmObj claws, ScmObj body, ScmEvalState *eval_state)
{
ScmObj env = eval_state->env;
Modified: branches/r5rs/sigscheme/operations-srfi23.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi23.c 2005-10-03 08:42:51 UTC (rev 1758)
+++ branches/r5rs/sigscheme/operations-srfi23.c 2005-10-03 08:56:44 UTC (rev 1759)
@@ -61,6 +61,14 @@
/*=======================================
Function Implementations
=======================================*/
+void SigScm_Initialize_SRFI23(void)
+{
+ /*=======================================================================
+ SRFI-23 Procedure
+ =======================================================================*/
+ Scm_RegisterProcedureVariadic1("error", ScmOp_SRFI23_error);
+}
+
/*=============================================================================
SRFI23 : Error reporting mechanism
=============================================================================*/
Modified: branches/r5rs/sigscheme/operations-srfi34.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi34.c 2005-10-03 08:42:51 UTC (rev 1758)
+++ branches/r5rs/sigscheme/operations-srfi34.c 2005-10-03 08:56:44 UTC (rev 1759)
@@ -83,6 +83,20 @@
/*=======================================
Function Implementations
=======================================*/
+void SigScm_Initialize_SRFI34(void)
+{
+ /*=======================================================================
+ SRFI-34 Procedure
+ =======================================================================*/
+ Scm_RegisterProcedureFixed2("with-exception-handler", ScmOp_SRFI34_with_exception_handler);
+ Scm_RegisterSyntaxVariadic1("guard" , ScmExp_SRFI34_guard);
+ Scm_RegisterProcedureFixed1("raise" , ScmOp_SRFI34_raise);
+ scm_exception_handlers = SCM_FALSE;
+ scm_exception_continuations = SCM_FALSE;
+ SigScm_GC_Protect(&scm_exception_handlers);
+ SigScm_GC_Protect(&scm_exception_continuations);
+}
+
ScmObj ScmOp_SRFI34_with_exception_handler(ScmObj handler, ScmObj thunk)
{
jmp_buf jmpenv;
Modified: branches/r5rs/sigscheme/operations-srfi38.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi38.c 2005-10-03 08:42:51 UTC (rev 1758)
+++ branches/r5rs/sigscheme/operations-srfi38.c 2005-10-03 08:56:44 UTC (rev 1759)
@@ -59,6 +59,13 @@
/*=======================================
Function Implementations
=======================================*/
+void SigScm_Initialize_SRFI38(void)
+{
+ /*=======================================================================
+ SRFI-38 Procedure
+ =======================================================================*/
+ Scm_RegisterProcedureVariadic1("write-with-shared-structure", ScmOp_SRFI38_write_with_shared_structure);
+}
/*=============================================================================
SRFI38 : External Representation for Data With Shared Structure
Modified: branches/r5rs/sigscheme/operations-srfi60.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi60.c 2005-10-03 08:42:51 UTC (rev 1758)
+++ branches/r5rs/sigscheme/operations-srfi60.c 2005-10-03 08:56:44 UTC (rev 1759)
@@ -82,6 +82,24 @@
/*=======================================
Function Implementations
=======================================*/
+void SigScm_Initialize_SRFI60(void)
+{
+ /*=======================================================================
+ SRFI-60 Procedures
+ =======================================================================*/
+ Scm_RegisterReductionOperator("logand" , ScmOp_SRFI60_logand);
+ Scm_RegisterReductionOperator("logior" , ScmOp_SRFI60_logior);
+ Scm_RegisterReductionOperator("logxor" , ScmOp_SRFI60_logxor);
+ Scm_RegisterProcedureFixed1("lognot" , ScmOp_SRFI60_lognot);
+ Scm_RegisterProcedureFixed3("bitwise-if" , ScmOp_SRFI60_bitwise_if);
+ Scm_RegisterProcedureFixed2("logtest" , ScmOp_SRFI60_logtest);
+ Scm_DefineAlias("bitwise-and" , "logand");
+ Scm_DefineAlias("bitwise-ior" , "logior");
+ Scm_DefineAlias("bitwise-xor" , "logxor");
+ Scm_DefineAlias("bitwise-not" , "lognot");
+ Scm_DefineAlias("bitwise-merge" , "bitwise-if");
+ Scm_DefineAlias("any-bits-set?" , "logtest");
+}
/*=============================================================================
SRFI-60 : Integers as Bits
Modified: branches/r5rs/sigscheme/operations-srfi8.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi8.c 2005-10-03 08:42:51 UTC (rev 1758)
+++ branches/r5rs/sigscheme/operations-srfi8.c 2005-10-03 08:56:44 UTC (rev 1759)
@@ -60,6 +60,13 @@
/*=======================================
Function Implementations
=======================================*/
+void SigScm_Initialize_SRFI8(void)
+{
+ /*=======================================================================
+ SRFI-8 Procedure
+ =======================================================================*/
+ Scm_RegisterSyntaxVariadicTailRec2("receive", ScmOp_SRFI8_receive);
+}
/*=============================================================================
SRFI8 : Receive
Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c 2005-10-03 08:42:51 UTC (rev 1758)
+++ branches/r5rs/sigscheme/sigscheme.c 2005-10-03 08:56:44 UTC (rev 1759)
@@ -322,121 +322,29 @@
SigScm_GC_Protect(&scm_current_error_port);
#if SCM_USE_SRFI1
- /*=======================================================================
- SRFI-1 Procedures
- =======================================================================*/
- Scm_RegisterProcedureFixed1("list-copy" , ScmOp_SRFI1_list_copy);
- Scm_RegisterProcedureFixed2("xcons" , ScmOp_SRFI1_xcons);
- Scm_RegisterProcedureVariadic0("circular-list" , ScmOp_SRFI1_circular_list);
- Scm_RegisterProcedureVariadic1("iota" , ScmOp_SRFI1_iota);
- Scm_RegisterProcedureVariadic0("cons*" , ScmOp_SRFI1_cons_star);
- Scm_RegisterProcedureVariadic1("make-list" , ScmOp_SRFI1_make_list);
- Scm_RegisterProcedureVariadic1("list-tabulate" , ScmOp_SRFI1_list_tabulate);
- Scm_RegisterProcedureFixed1("proper-list?" , ScmOp_SRFI1_proper_listp);
- Scm_RegisterProcedureFixed1("circular-list?" , ScmOp_SRFI1_circular_listp);
- Scm_RegisterProcedureFixed1("dotted-list?" , ScmOp_SRFI1_dotted_listp);
- Scm_RegisterProcedureFixed1("not-pair?" , ScmOp_SRFI1_not_pairp);
- Scm_RegisterProcedureFixed1("null-list?" , ScmOp_SRFI1_null_listp);
- Scm_RegisterProcedureVariadic1("list=" , ScmOp_SRFI1_listequal);
- Scm_RegisterProcedureFixed1("first" , ScmOp_SRFI1_first);
- Scm_RegisterProcedureFixed1("second" , ScmOp_SRFI1_second);
- Scm_RegisterProcedureFixed1("third" , ScmOp_SRFI1_third);
- Scm_RegisterProcedureFixed1("fourth" , ScmOp_SRFI1_fourth);
- Scm_RegisterProcedureFixed1("fifth" , ScmOp_SRFI1_fifth);
- Scm_RegisterProcedureFixed1("sixth" , ScmOp_SRFI1_sixth);
- Scm_RegisterProcedureFixed1("seventh" , ScmOp_SRFI1_seventh);
- Scm_RegisterProcedureFixed1("eighth" , ScmOp_SRFI1_eighth);
- Scm_RegisterProcedureFixed1("ninth" , ScmOp_SRFI1_ninth);
- Scm_RegisterProcedureFixed1("tenth" , ScmOp_SRFI1_tenth);
- Scm_RegisterProcedureFixed2("take" , ScmOp_SRFI1_take);
- Scm_RegisterProcedureFixed2("drop" , ScmOp_SRFI1_drop);
- Scm_RegisterProcedureFixed2("take-right" , ScmOp_SRFI1_take_right);
- Scm_RegisterProcedureFixed2("drop-right" , ScmOp_SRFI1_drop_right);
- Scm_RegisterProcedureFixed2("take!" , ScmOp_SRFI1_take_d);
- Scm_RegisterProcedureFixed2("drop-right!" , ScmOp_SRFI1_drop_right_d);
- Scm_RegisterProcedureFixed2("split-at" , ScmOp_SRFI1_split_at);
- Scm_RegisterProcedureFixed2("split-at!" , ScmOp_SRFI1_split_at_d);
- Scm_RegisterProcedureFixed1("last" , ScmOp_SRFI1_last);
- Scm_RegisterProcedureFixed1("last-pair" , ScmOp_SRFI1_last_pair);
- Scm_RegisterProcedureFixed1("length+" , ScmOp_SRFI1_lengthplus);
- Scm_RegisterProcedureVariadic0("concatenate" , ScmOp_SRFI1_concatenate);
+ SigScm_Initialize_SRFI1();
#endif
#if SCM_USE_SRFI2
- /*=======================================================================
- SRFI-2 Procedure
- =======================================================================*/
- Scm_RegisterSyntaxVariadicTailRec1("and-let*", ScmOp_SRFI2_and_let_star);
+ SigScm_Initialize_SRFI2();
#endif
#if SCM_USE_SRFI8
- /*=======================================================================
- SRFI-8 Procedure
- =======================================================================*/
- Scm_RegisterSyntaxVariadicTailRec2("receive", ScmOp_SRFI8_receive);
+ SigScm_Initialize_SRFI8();
#endif
#if SCM_USE_SRFI23
- /*=======================================================================
- SRFI-23 Procedure
- =======================================================================*/
- Scm_RegisterProcedureVariadic1("error", ScmOp_SRFI23_error);
+ SigScm_Initialize_SRFI23();
#endif
#if SCM_USE_SRFI34
- /*=======================================================================
- SRFI-34 Procedure
- =======================================================================*/
- Scm_RegisterProcedureFixed2("with-exception-handler", ScmOp_SRFI34_with_exception_handler);
- Scm_RegisterSyntaxVariadic1("guard" , ScmExp_SRFI34_guard);
- Scm_RegisterProcedureFixed1("raise" , ScmOp_SRFI34_raise);
- scm_exception_handlers = SCM_FALSE;
- scm_exception_continuations = SCM_FALSE;
- SigScm_GC_Protect(&scm_exception_handlers);
- SigScm_GC_Protect(&scm_exception_continuations);
+ SigScm_Initialize_SRFI34();
#endif
#if SCM_USE_SRFI38
- /*=======================================================================
- SRFI-38 Procedure
- =======================================================================*/
- Scm_RegisterProcedureVariadic1("write-with-shared-structure", ScmOp_SRFI38_write_with_shared_structure);
+ SigScm_Initialize_SRFI38();
#endif
#if SCM_USE_SRFI60
- /*=======================================================================
- SRFI-60 Procedures
- =======================================================================*/
- Scm_RegisterReductionOperator("logand" , ScmOp_SRFI60_logand);
- Scm_RegisterReductionOperator("logior" , ScmOp_SRFI60_logior);
- Scm_RegisterReductionOperator("logxor" , ScmOp_SRFI60_logxor);
- Scm_RegisterProcedureFixed1("lognot" , ScmOp_SRFI60_lognot);
- Scm_RegisterProcedureFixed3("bitwise-if" , ScmOp_SRFI60_bitwise_if);
- Scm_RegisterProcedureFixed2("logtest" , ScmOp_SRFI60_logtest);
- Scm_DefineAlias("bitwise-and" , "logand");
- Scm_DefineAlias("bitwise-ior" , "logior");
- Scm_DefineAlias("bitwise-xor" , "logxor");
- Scm_DefineAlias("bitwise-not" , "lognot");
- Scm_DefineAlias("bitwise-merge" , "bitwise-if");
- Scm_DefineAlias("any-bits-set?" , "logtest");
+ SigScm_Initialize_SRFI60();
#endif
-
#if SCM_COMPAT_SIOD
- /*=======================================================================
- SIOD Compatible Variables and Procedures
- =======================================================================*/
- /* operations-siod.c */
- Scm_RegisterProcedureFixed1("symbol-bound?" , ScmOp_symbol_boundp);
- Scm_RegisterProcedureFixed1("symbol-value" , ScmOp_symbol_value);
- Scm_RegisterProcedureFixed2("set-symbol-value!" , ScmOp_set_symbol_value);
-#if SCM_COMPAT_SIOD_BUGS
- Scm_RegisterProcedureFixed2("=" , ScmOp_siod_eql);
+ SigScm_Initialize_SIOD();
#endif
- Scm_DefineAlias("bit-and" , "logand");
- Scm_DefineAlias("bit-or" , "logior");
- Scm_DefineAlias("bit-xor" , "logxor");
- Scm_DefineAlias("bit-not" , "lognot");
- Scm_RegisterProcedureFixedTailRec0("the-environment" , ScmOp_the_environment);
- Scm_RegisterProcedureFixed1("%%closure-code" , ScmOp_closure_code);
- Scm_RegisterProcedureVariadic0("verbose" , ScmOp_verbose);
- /* datas.c */
- scm_return_value = SCM_NULL;
- SigScm_SetVerboseLevel(2);
-#endif
}
void SigScm_Finalize()
Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h 2005-10-03 08:42:51 UTC (rev 1758)
+++ branches/r5rs/sigscheme/sigscheme.h 2005-10-03 08:56:44 UTC (rev 1759)
@@ -583,6 +583,7 @@
===========================================================================*/
#if SCM_USE_SRFI1
/* operations-srfi1.c */
+void SigScm_Initialize_SRFI1(void);
ScmObj ScmOp_SRFI1_xcons(ScmObj a, ScmObj b);
ScmObj ScmOp_SRFI1_cons_star(ScmObj args);
ScmObj ScmOp_SRFI1_make_list(ScmObj length, ScmObj args);
@@ -622,28 +623,34 @@
#endif
#if SCM_USE_SRFI2
/* operations-srfi2.c */
+void SigScm_Initialize_SRFI2(void);
ScmObj ScmOp_SRFI2_and_let_star(ScmObj claws, ScmObj body, ScmEvalState *eval_state);
#endif
#if SCM_USE_SRFI8
/* operations-srfi8.c */
+void SigScm_Initialize_SRFI8(void);
ScmObj ScmOp_SRFI8_receive(ScmObj formals, ScmObj expr, ScmObj body, ScmEvalState *eval_state);
#endif
#if SCM_USE_SRFI23
/* operations-srfi23.c */
+void SigScm_Initialize_SRFI23(void);
ScmObj ScmOp_SRFI23_error(ScmObj reason, ScmObj args);
#endif
#if SCM_USE_SRFI34
/* operations-srfi34.c */
+void SigScm_Initialize_SRFI34(void);
ScmObj ScmOp_SRFI34_with_exception_handler(ScmObj handler, ScmObj thunk);
ScmObj ScmExp_SRFI34_guard(ScmObj var_and_clauses, ScmObj body, ScmObj env);
ScmObj ScmOp_SRFI34_raise(ScmObj obj);
#endif
#if SCM_USE_SRFI38
/* operations-srfi38.c */
+void SigScm_Initialize_SRFI38(void);
ScmObj ScmOp_SRFI38_write_with_shared_structure(ScmObj obj, ScmObj args);
#endif
#if SCM_USE_SRFI60
/* operations-srfi60.c */
+void SigScm_Initialize_SRFI60(void);
ScmObj ScmOp_SRFI60_logand(ScmObj left, ScmObj right,
enum ScmReductionState *state);
ScmObj ScmOp_SRFI60_logior(ScmObj left, ScmObj right,
@@ -656,6 +663,7 @@
#endif
#if SCM_COMPAT_SIOD
/* operations-siod.c */
+void SigScm_Initialize_SIOD(void);
ScmObj ScmOp_symbol_boundp(ScmObj obj);
ScmObj ScmOp_symbol_value(ScmObj var);
ScmObj ScmOp_set_symbol_value(ScmObj var, ScmObj val);
More information about the uim-commit
mailing list