From f8688e0ca6ee2928ae1441ba2b7f5d2c8f43dea5 Mon Sep 17 00:00:00 2001
From: rich <rich>
Date: Thu, 11 Oct 2007 07:41:51 +0000
Subject: [PATCH] Test assembler & INLINE

---
 test_assembler.f     | 19 +++++++++++++++++++
 test_assembler.f.out |  8 ++++++++
 2 files changed, 27 insertions(+)
 create mode 100644 test_assembler.f
 create mode 100644 test_assembler.f.out

diff --git a/test_assembler.f b/test_assembler.f
new file mode 100644
index 0000000..8edba7c
--- /dev/null
+++ b/test_assembler.f
@@ -0,0 +1,19 @@
+( -*- text -*- )
+
+: 2DROP INLINE DROP INLINE DROP ;CODE
+
+: C@++ INLINE DUP INLINE 1+ INLINE SWAP INLINE C@ ;CODE
+
+: TEST
+	." 2DROP: "	1 2 3 4 2DROP . . CR
+
+	S" testing" DROP
+	C@++ EMIT CR
+	C@++ EMIT CR
+	C@++ EMIT CR
+	C@++ EMIT CR
+	C@++ EMIT CR
+	C@++ EMIT CR
+	C@++ EMIT CR
+	DROP
+;
diff --git a/test_assembler.f.out b/test_assembler.f.out
new file mode 100644
index 0000000..9a172d4
--- /dev/null
+++ b/test_assembler.f.out
@@ -0,0 +1,8 @@
+2DROP: 2 1 
+t
+e
+s
+t
+i
+n
+g
-- 
1.8.3.1