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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-13 06:30:29 -0800 (Sun, 13 Nov 2005)
New Revision: 2123

Modified:
   branches/r5rs/sigscheme/sigscheme.c
   branches/r5rs/sigscheme/sigscheme.h
Log:
* sigscheme/sigscheme.h
  - (Scm_use): New function decl
* sigscheme/sigscheme.c
  - (Scm_use): New function


Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c	2005-11-13 11:27:29 UTC (rev 2122)
+++ branches/r5rs/sigscheme/sigscheme.c	2005-11-13 14:30:29 UTC (rev 2123)
@@ -211,6 +211,15 @@
                          SCM_SYMBOL_VCELL(Scm_Intern(sym)));
 }
 
+int Scm_use(const char *feature)
+{
+    ScmObj ok;
+    SCM_ASSERT(feature);
+
+    ok = ScmExp_use(Scm_Intern(feature), SCM_INTERACTION_ENV);
+    return NFALSEP(ok);
+}
+
 /*
  * TODO:
  * - Make the interface and semantics of 'use' similar to other Scheme

Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2005-11-13 11:27:29 UTC (rev 2122)
+++ branches/r5rs/sigscheme/sigscheme.h	2005-11-13 14:30:29 UTC (rev 2123)
@@ -233,6 +233,7 @@
 void SigScm_Initialize(void);
 void SigScm_Finalize(void);
 void Scm_DefineAlias(const char *newsym, const char *sym);
+int  Scm_use(const char *feature);
 ScmObj ScmExp_use(ScmObj feature, ScmObj env);
 ScmObj Scm_eval_c_string(const char *exp);
 #if SCM_COMPAT_SIOD