From 975126be58a92228e945730f9ff2337bfea41b9a Mon Sep 17 00:00:00 2001
From: Chouser <chouser@n01se.net>
Date: Fri, 20 Feb 2015 02:53:46 -0500
Subject: forth: Add call-site caching to boost perf

---
 forth/misc-tests.fs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'forth/misc-tests.fs')

diff --git a/forth/misc-tests.fs b/forth/misc-tests.fs
index 35e665b..6b6d643 100644
--- a/forth/misc-tests.fs
+++ b/forth/misc-tests.fs
@@ -39,6 +39,7 @@ dup 5 cells + @  20 test=
 
 \ Protocol tests
 
+: t1
 mal-nil
 42 MalInt. mal-nil conj
 10 MalInt. mal-nil conj conj
@@ -80,14 +81,20 @@ drop
 
 99 MalInt. 10 MalInt. MalMap/Empty get 99 MalInt. test=
 
+;
+t1
+
 \ eval tests
 
 require step2_eval.fs
 
+: t2
 mal-nil
     1 MalInt. swap conj
     2 MalInt. swap conj
     3 MalInt. swap conj
 mal-eval
+;
+t2
 
 bye
-- 
cgit v1.2.3