X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=client%2Finterpret.c;h=0335f1d08c02fe4b0af4bf938ba856296a2b50d9;hb=5f4c4b61ea1e4062e90715af9e1027da6d1c7a66;hp=39c24b0e58e8684b1f0816f1a5315031b4146b72;hpb=28f4e19f893889e6d19d8c0653a643ae1580fd6d;p=mTask.git

diff --git a/client/interpret.c b/client/interpret.c
index 39c24b0..0335f1d 100644
--- 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");