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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-30 16:05:25 -0700 (Fri, 30 Sep 2005)
New Revision: 1710

Modified:
   branches/r5rs/sigscheme/sigschemetype.h
Log:
* sigscheme/sigschemetype.h
  - (enum ScmReturnType): New enum
  - (struct ScmEvalState_): Follow the change


Modified: branches/r5rs/sigscheme/sigschemetype.h
===================================================================
--- branches/r5rs/sigscheme/sigschemetype.h	2005-09-30 22:57:59 UTC (rev 1709)
+++ branches/r5rs/sigscheme/sigschemetype.h	2005-09-30 23:05:25 UTC (rev 1710)
@@ -193,13 +193,15 @@
     SCM_REDUCE_STOP             /* Callee wants to stop. */
 };
 
+enum ScmReturnType {
+    SCM_RETTYPE_AS_IS           = 0,
+    SCM_RETTYPE_NEED_EVAL       = 1
+};
+
 /* The evaluator's state */
 struct ScmEvalState_ {
     ScmObj env;
-    enum {
-        SCM_RETTYPE_AS_IS     = 0,
-        SCM_RETTYPE_NEED_EVAL = 1
-    } ret_type;
+    enum ScmReturnType ret_type;
 };
 
 /* Scheme Object */