diff --git a/ase/stx/hash.c b/ase/stx/hash.c
index 5eb045af..557c57cf 100644
--- a/ase/stx/hash.c
+++ b/ase/stx/hash.c
@@ -1,5 +1,5 @@
 /*
- * $Id: hash.c,v 1.7 2005-05-12 15:25:06 bacon Exp $
+ * $Id: hash.c,v 1.8 2005-05-12 15:51:20 bacon Exp $
  */
 
 #include <xp/stx/hash.h>
@@ -85,7 +85,6 @@ void xp_stx_hash_traverse (
 		link = XP_STX_AT(stx,table,size);
 
 		while (link != stx->nil) {
-			xp_stx_word_t key = XP_STX_AT(stx,link,1);
 			func (stx,link);
 			link = XP_STX_AT(stx,link,0);
 		}
diff --git a/ase/stx/parser.c b/ase/stx/parser.c
new file mode 100644
index 00000000..88c333a2
--- /dev/null
+++ b/ase/stx/parser.c
@@ -0,0 +1,27 @@
+/*
+ * $Id: parser.c,v 1.1 2005-05-12 15:49:07 bacon Exp $
+ */
+
+#include <xp/stx/parser.h>
+
+static void __emit_code (
+	xp_stx_t* stx, xp_stx_word_t method, int value)
+{
+}
+
+static void __emit_instruction (
+	xp_stx_t* stx, xp_stx_word_t method, int high, int low)
+{
+	if (low >= 16) {
+		__emit_instruction (stx, method, Extended, high);
+		__emit_code (low);
+	}
+	else __emit_code (high * 16 + low);
+}
+
+int xp_stx_parse (
+	xp_stx_t* stx, xp_stx_word_t method, const xp_char_t* text)
+{
+	return 0;
+}
+
diff --git a/ase/stx/parser.h b/ase/stx/parser.h
new file mode 100644
index 00000000..39174e85
--- /dev/null
+++ b/ase/stx/parser.h
@@ -0,0 +1,19 @@
+/*
+ * $Id: parser.h,v 1.1 2005-05-12 15:49:07 bacon Exp $
+ */
+
+#ifndef _XP_STX_PARSER_H_
+#define _XP_STX_PARSER_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+int xp_stx_parse (
+	xp_stx_t* stx, xp_stx_word_t method, const xp_char_t* text);
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif