diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-14 16:06:53 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-14 16:06:53 -0800 |
commit | 631d3b4e98183d800bc9777e88cca339ad063d35 (patch) | |
tree | 6f29a52fcec6e539b76be2222ad10e664cf139be /mu.arc | |
parent | 2674966e94b861f5c90021ff02d20dff9b0a70fc (diff) | |
download | mu-631d3b4e98183d800bc9777e88cca339ad063d35.tar.gz |
563 - check actual errors during move validation
Diffstat (limited to 'mu.arc')
-rw-r--r-- | mu.arc | 7 |
1 files changed, 5 insertions, 2 deletions
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 |