infrastructuur voor het lezen van taken

[mTask.git] / mTaskInterpret.dcl

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index 0048859..53bb69b 100644 (file)
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -39,6 +39,7 @@ import mTask
        | BCAnalogWrite String
        | BCDigitalRead String
        | BCDigitalWrite String
+       | BCTest AnalogPin
 
 //:: ByteCode a p = BC (BCState -> ([BC], BCState))
 :: ByteCode a p = BC [BC]