diff options
author | Stephen Malina <stephenmalina@gmail.com> | 2016-07-14 04:47:18 -0700 |
---|---|---|
committer | Stephen Malina <stephenmalina@gmail.com> | 2016-07-14 05:42:03 -0700 |
commit | 8ee533693acdea45ff9baae3ca0c5b3e0c43de7a (patch) | |
tree | cfe296fd2b4374d0c10c3d13cac1ec3f1dea6341 /091run_interactive.cc | |
parent | 8dccf184feebe1acd2354231e16d464ef6f8251d (diff) | |
download | mu-8ee533693acdea45ff9baae3ca0c5b3e0c43de7a.tar.gz |
3111
Show number of instructions in the editor when a user clicks on a run instruction in the sandbox.
Diffstat (limited to '091run_interactive.cc')
-rw-r--r-- | 091run_interactive.cc | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/091run_interactive.cc b/091run_interactive.cc index f1647c59..70dbed0f 100644 --- a/091run_interactive.cc +++ b/091run_interactive.cc @@ -166,10 +166,12 @@ load(string( "recipe sandbox [\n" + "local-scope\n" + "screen:address:screen <- new-fake-screen 30, 5\n" + - "r:number/routine_id <- start-running interactive, screen\n" + - "limit-time r, 100000/instructions\n" + - "wait-for-routine r\n" + - "sandbox-state:number <- routine-state r/routine_id\n" + + "routine-id:number <- start-running interactive, screen\n" + + "limit-time routine-id, 100000/instructions\n" + + "wait-for-routine routine-id\n" + + "instructions-run:number <- number-of-instructions routine-id\n" + + "stash instructions-run [instructions run]\n" + + "sandbox-state:number <- routine-state routine-id\n" + "completed?:boolean <- equal sandbox-state, 1/completed\n" + "output:address:array:character <- $most-recent-products\n" + "errors:address:array:character <- save-errors\n" + |