From a0423da33f9dd80a643a1e188de1697ba99c833d Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <cgyarvin@gmail.com>
Date: Mon, 21 Dec 2015 14:45:22 -0800
Subject: [PATCH] Fixed vet caching issue.

---
 jets/f/ut_burn.c | 2 +-
 jets/f/ut_crop.c | 2 +-
 jets/f/ut_cull.c | 2 +-
 jets/f/ut_find.c | 2 +-
 jets/f/ut_fish.c | 2 +-
 jets/f/ut_fuse.c | 2 +-
 jets/f/ut_mull.c | 2 +-
 jets/f/ut_nest.c | 2 +-
 jets/f/ut_peek.c | 2 +-
 jets/f/ut_rest.c | 2 +-
 jets/f/ut_seek.c | 2 +-
 11 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/jets/f/ut_burn.c b/jets/f/ut_burn.c
index cfb6e753ab..d6961647a8 100644
--- a/jets/f/ut_burn.c
+++ b/jets/f/ut_burn.c
@@ -88,7 +88,7 @@
   u3qfu_burn(u3_noun van,
              u3_noun sut)
   {
-    c3_m    fun_m = c3__burn;
+    c3_m    fun_m = c3__burn + !!u3r_at(u3qfu_van_vet, van);
     u3_noun pro   = u3z_find(fun_m, sut);
 
     if ( u3_none != pro ) {
diff --git a/jets/f/ut_crop.c b/jets/f/ut_crop.c
index eec42c4dd0..852e3306fe 100644
--- a/jets/f/ut_crop.c
+++ b/jets/f/ut_crop.c
@@ -242,7 +242,7 @@
              u3_noun sut,
              u3_noun ref)
   {
-    c3_m    fun_m = c3__crop;
+    c3_m    fun_m = c3__crop + !!u3r_at(u3qfu_van_vet, van);
     u3_noun pro   = u3z_find_2(fun_m, sut, ref);
 
     if ( u3_none != pro ) {
diff --git a/jets/f/ut_cull.c b/jets/f/ut_cull.c
index 1b9ae7bc5a..289599a209 100644
--- a/jets/f/ut_cull.c
+++ b/jets/f/ut_cull.c
@@ -189,7 +189,7 @@
              u3_noun axe,
              u3_noun ref)
   {
-    c3_m    fun_m = c3__cull;
+    c3_m    fun_m = c3__cull + !!u3r_at(u3qfu_van_vet, van);
     u3_noun pro   = u3z_find_4(fun_m, sut, pol, axe, ref);
 
     if ( u3_none != pro ) {
diff --git a/jets/f/ut_find.c b/jets/f/ut_find.c
index 57a01dfe12..0616464da4 100644
--- a/jets/f/ut_find.c
+++ b/jets/f/ut_find.c
@@ -355,7 +355,7 @@
              u3_noun way,
              u3_noun cug)
   {
-    c3_m    fun_m = c3__find;
+    c3_m    fun_m = c3__find + !!u3r_at(u3qfu_van_vet, van);
     u3_noun pro   = u3z_find_4(fun_m, sut, dep, way, cug);
 
     if ( u3_none != pro ) {
diff --git a/jets/f/ut_fish.c b/jets/f/ut_fish.c
index 69ed028e40..dc58faba9c 100644
--- a/jets/f/ut_fish.c
+++ b/jets/f/ut_fish.c
@@ -150,7 +150,7 @@
              u3_noun sut,
              u3_noun axe)
   {
-    c3_m    fun_m = c3__fish;
+    c3_m    fun_m = c3__fish + !!u3r_at(u3qfu_van_vet, van);
     u3_noun pro   = u3z_find_2(fun_m, sut, axe);
 
     if ( u3_none != pro ) {
diff --git a/jets/f/ut_fuse.c b/jets/f/ut_fuse.c
index fb71caa1fa..4b407c30ba 100644
--- a/jets/f/ut_fuse.c
+++ b/jets/f/ut_fuse.c
@@ -183,7 +183,7 @@
              u3_noun sut,
              u3_noun ref)
   {
-    c3_m    fun_m = c3__fuse;
+    c3_m    fun_m = c3__fuse + !!u3r_at(u3qfu_van_vet, van);
     u3_noun pro   = u3z_find_2(fun_m, sut, ref);
 
     if ( u3_none != pro ) {
diff --git a/jets/f/ut_mull.c b/jets/f/ut_mull.c
index 8b0e43a1c6..da919d61a7 100644
--- a/jets/f/ut_mull.c
+++ b/jets/f/ut_mull.c
@@ -794,7 +794,7 @@
              u3_noun dox,
              u3_noun gen)
   {
-    c3_m    fun_m = c3__mull;
+    c3_m    fun_m = c3__mull + !!u3r_at(u3qfu_van_vet, van);
     u3_noun pro   = u3z_find_4(fun_m, sut, gol, dox, gen);
 
     if ( u3_none != pro ) {
diff --git a/jets/f/ut_nest.c b/jets/f/ut_nest.c
index 438b16ce1d..9105b2c073 100644
--- a/jets/f/ut_nest.c
+++ b/jets/f/ut_nest.c
@@ -332,7 +332,7 @@
     }
 
     {
-      c3_m    fun_m = c3__nest;
+      c3_m    fun_m = c3__nest + !!u3r_at(u3qfu_van_vet, van);
       u3_noun pro   = u3z_find_2(fun_m, sut, ref);
 
       if ( u3_none != pro ) {
diff --git a/jets/f/ut_peek.c b/jets/f/ut_peek.c
index 13c9dabdc8..af1ef806e1 100644
--- a/jets/f/ut_peek.c
+++ b/jets/f/ut_peek.c
@@ -183,7 +183,7 @@
              u3_noun way,
              u3_noun axe)
   {
-    c3_m    fun_m = c3__peek;
+    c3_m    fun_m = c3__peek + !!u3r_at(u3qfu_van_vet, van);
     u3_noun pro   = u3z_find_3(fun_m, sut, way, axe);
 
     if ( u3_none != pro ) {
diff --git a/jets/f/ut_rest.c b/jets/f/ut_rest.c
index edfb399ed3..5df63fd131 100644
--- a/jets/f/ut_rest.c
+++ b/jets/f/ut_rest.c
@@ -116,7 +116,7 @@
              u3_noun sut,
              u3_noun leg)
   {
-    c3_m    fun_m = c3__rest;
+    c3_m    fun_m = c3__rest + !!u3r_at(u3qfu_van_vet, van);
     u3_noun pro   = u3z_find_2(fun_m, sut, leg);
 
     if ( u3_none != pro ) {
diff --git a/jets/f/ut_seek.c b/jets/f/ut_seek.c
index 329593cc00..cfc7631fae 100644
--- a/jets/f/ut_seek.c
+++ b/jets/f/ut_seek.c
@@ -237,7 +237,7 @@
              u3_noun way,
              u3_noun hyp)
   {
-    c3_m    fun_m = c3__seek;
+    c3_m    fun_m = c3__seek + !!u3r_at(u3qfu_van_vet, van);
     u3_noun pro   = u3z_find_3(fun_m, sut, way, hyp);
 
     if ( u3_none != pro ) {