From 631d3b4e98183d800bc9777e88cca339ad063d35 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Wed, 14 Jan 2015 16:06:53 -0800
Subject: 563 - check actual errors during move validation

---
 mu.arc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'mu.arc')

diff --git a/mu.arc b/mu.arc
index 311f33a8..7ac07295 100644
--- a/mu.arc
+++ b/mu.arc
@@ -1415,11 +1415,14 @@
              :else
                (recur (+ addr 1) (+ idx 1))))))
 
+(def routine-running (f)
+  (find [some [is f _!fn-name] stack._]
+        completed-routines*))
+
 (def ran-to-completion (f)
   ; if a routine calling f ran to completion there'll be no sign of it in any
   ; completed call-stacks.
-  (~find [some [is f _!fn-name] stack._]
-         completed-routines*))
+  (~routine-running f))
 
 ;; system software
 ; create once, load before every test
-- 
cgit 1.4.1-2-gfad0