From 22278ba742b218a4731327360c874dfbf27bf89c Mon Sep 17 00:00:00 2001
From: Christian Thaeter <ct@pipapo.org>
Date: Thu, 4 Jan 2007 16:28:21 +0100
Subject: [PATCH] few small changes

---
 engine/mala_types.h   | 2 +-
 engine/stringbucket.c | 2 +-
 engine/stringlist.h   | 4 ++--
 std/std_statements.c  | 2 +-
 4 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/engine/mala_types.h b/engine/mala_types.h
index 020f73b..1238759 100644
--- a/engine/mala_types.h
+++ b/engine/mala_types.h
@@ -43,9 +43,9 @@ NOBUG_DECLARE_FLAG(mala_module_std);
   MALA_STATE(LITERAL),          /* don't evaluate argument */ \
   MALA_STATE(FAILURE),          /* last comand returned false */ \
   MALA_STATE(SUCCESS),          /* last comand returned true */ \
-  MALA_STATE(CONTINUE),         /* command not fully evaluated yet, or removed itself */  \
   MALA_STATE(LIST),             /* evaluated to a list */ \
   MALA_STATE(MACRO),            /* evaluated to a macro */ \
+  MALA_STATE(CONTINUE),         /* command not fully evaluated yet, or removed itself */  \
   MALA_STATE(START),            /* start of the statemachine, nothing evaluated yet */ \
   MALA_STATE(REMOVE),           /* no sideeffects remove including arguments */ \
   MALA_STATE(EXCEPTION),        /* some error occured (in MaLa code) */ \
diff --git a/engine/stringbucket.c b/engine/stringbucket.c
index d7d7539..3655e07 100644
--- a/engine/stringbucket.c
+++ b/engine/stringbucket.c
@@ -76,7 +76,7 @@ mala_stringbucketnode_acogc_finalize (void * p)
   acogc_weakref_unlink (&node->weak_string);
 }
 
-#ifdef EBUG_ACOGC
+#ifdef EBUG_ACOGC //TODO
 static void
 mala_stringbucketnode_dump_ (FILE* g, MalaStringBucketNode_ref n, unsigned depth)
 {
diff --git a/engine/stringlist.h b/engine/stringlist.h
index fae660e..3fa3913 100644
--- a/engine/stringlist.h
+++ b/engine/stringlist.h
@@ -132,13 +132,13 @@ mala_stringlist_string (MalaStringList self)
 static inline MalaStringList
 mala_stringlist_head_get (MalaStringList self)
 {
-  return LLIST_TO_STRUCTP(llist_get_next (&self->node), mala_stringlist, node);
+  return LLIST_TO_STRUCTP (llist_get_next (&self->node), mala_stringlist, node);
 }
 
 static inline MalaString
 mala_stringlist_string_from_llist (const_LList self)
 {
-  return LLIST_TO_STRUCTP(self, mala_stringlist, node)->string;
+  return LLIST_TO_STRUCTP (self, mala_stringlist, node)->string;
 }
 
 static inline const char *
diff --git a/std/std_statements.c b/std/std_statements.c
index 8b830ef..d63c20e 100644
--- a/std/std_statements.c
+++ b/std/std_statements.c
@@ -173,7 +173,7 @@ mala_gc_parser (MalaProgram prg)
 {
   acogc_root_collect (&prg->engine->gcroot, ACOGC_COLLECT_NORMAL);
   mala_program_action_done (prg, 0);
-  return MALA_SUCCESS;
+  return MALA_CONTINUE;
 }
 
 
-- 
2.11.4.GIT