From: Mart Lubbers Date: Sat, 21 Jan 2017 13:45:39 +0000 (+0100) Subject: fix X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=2520cfc83a29d273b17441c5cdf411f1182bbb62;p=mTask.git fix --- diff --git a/CleanSerial b/CleanSerial index 553b662..e259a05 160000 --- a/CleanSerial +++ b/CleanSerial @@ -1 +1 @@ -Subproject commit 553b66228cfc990be3b34578f3a4f020e70fcf61 +Subproject commit e259a05e4afe7cfc607aad59f7612f8bf5540426 diff --git a/int/main.c b/int/main.c index 3a95d0e..bd0a428 100644 --- a/int/main.c +++ b/int/main.c @@ -103,7 +103,7 @@ int main(int argc, char *argv[]){ //Check for newetasks debug("loop"); loop(); - delay(100); + delay(10); } return 0; } diff --git a/mTaskInterpret.icl b/mTaskInterpret.icl index cbf06c0..d88c318 100644 --- a/mTaskInterpret.icl +++ b/mTaskInterpret.icl @@ -35,7 +35,7 @@ decode x '\n' = MTEmpty 'm' = MTMessage x 'u' = MTPub (from16bit (x % (1,3))) (x % (3,5)) - _ = abort ("Didn't understand message: " +++ join " " [toString (toInt c)\\c<-: x] +++ "\n") + _ = MTMessage x//abort ("Didn't understand message: " +++ join " " [toString (toInt c)\\c<-: x] +++ "\n") safePrint :== toString o toJSON