diff options
| author | David Thompson <dthompson2@worcester.edu> | 2017-10-14 21:46:45 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2017-10-14 21:46:45 -0400 |
| commit | 4dffa91d2f2fcdbd8c41e79be79093541608161d (patch) | |
| tree | d347676a694c573b216d7980d981b7a91e873c37 | |
| parent | 88534f7472b8171304fc1da4ae0aef58c2a52708 (diff) | |
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'.
| -rw-r--r-- | chickadee/scripting/script.scm | 4 |
1 files 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." |