altos/cortexelf-v1: Make lisp compile again

[fw/altos] / src / cortexelf-v1 / ao_lisp_os.h

diff --git a/src/cortexelf-v1/ao_lisp_os.h b/src/cortexelf-v1/ao_lisp_os.h
index d0c1f7b7a149dc71d26d81a74637262d90d66ddf..50c9d40f64344d64b15f986bfda103c2ae74301c 100644 (file)
--- a/src/cortexelf-v1/ao_lisp_os.h
+++ b/src/cortexelf-v1/ao_lisp_os.h
@@ -56,10 +56,18 @@ ao_lisp_os_led(int led)
        (void) led;
 }
 
+#define AO_LISP_JIFFIES_PER_SECOND     AO_HERTZ
+
 static inline void
 ao_lisp_os_delay(int delay)
 {
-       ao_delay(AO_MS_TO_TICKS(delay));
+       ao_delay(delay);
+}
+
+static inline int
+ao_lisp_os_jiffy(void)
+{
+       return ao_tick_count;
 }
 
 #endif