From 4dffa91d2f2fcdbd8c41e79be79093541608161d Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 14 Oct 2017 21:46:45 -0400 Subject: scripting: Fix bugs in script-running? and script-complete? * chickadee/scripting/script.scm (script-running?, script-complete?): Test for the correct status instead of 'cancelled'. --- chickadee/scripting/script.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/chickadee/scripting/script.scm b/chickadee/scripting/script.scm index df2d6bb..97ba811 100644 --- a/chickadee/scripting/script.scm +++ b/chickadee/scripting/script.scm @@ -45,11 +45,11 @@ (define (script-running? script) "Return #t if SCRIPT has not yet terminated or been cancelled." - (eq? 'cancelled (script-status script))) + (eq? 'running (script-status script))) (define (script-complete? script) "Return #t if SCRIPT has terminated." - (eq? 'cancelled (script-status script))) + (eq? 'complete (script-status script))) (define (cancel-script script) "Prevent further execution of SCRIPT." -- cgit v1.2.3