update a lot, try to type shares

[mTask.git] / client / interpret.c

diff --git a/client/interpret.c b/client/interpret.c
index 39c24b0..0335f1d 100644 (file)
--- a/client/interpret.c
+++ b/client/interpret.c
@@ -140,10 +140,12 @@ void run_task(struct task *t)
                        sp--;
                        break;
                case BCLEDON: trace("LedOn(%d)", program[pc]);
-                       led_on(program[pc++]);
+                       led_on(stack[sp-1]);
+                       sp--;
                        break;
                case BCLEDOFF: trace("LedOn(%d)", program[pc]);
-                       led_off(program[pc++]);
+                       led_off(stack[sp-1]);
+                       sp--;
                        break;
                default:
                        trace("unrecognized");