altos/cortexelf-v1: Make lisp compile again

Signed-off-by: Keith Packard <keithp@keithp.com>

diff --git a/src/cortexelf-v1/Makefile b/src/cortexelf-v1/Makefile
index 8cc6ce314e60d382e591840221cd37cb2b403888..be225e5797510e55f5bf7e14b8d2bb5aa7c5df45 100644 (file)
--- a/src/cortexelf-v1/Makefile
+++ b/src/cortexelf-v1/Makefile
@@ -82,6 +82,7 @@ ALTOS_SRC = \
        ao_lisp_atom.c \
        ao_lisp_int.c \
        ao_lisp_poly.c \
+       ao_lisp_bool.c \
        ao_lisp_builtin.c \
        ao_lisp_read.c \
        ao_lisp_rep.c \

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

diff --git a/src/cortexelf-v1/ao_pins.h b/src/cortexelf-v1/ao_pins.h
index 258ffe31f79e43518cce3575086614777219eea8..c2bbf2d2f2a1b4dd00d9ba766e450a4f7a95f275 100644 (file)
--- a/src/cortexelf-v1/ao_pins.h
+++ b/src/cortexelf-v1/ao_pins.h
@@ -62,6 +62,8 @@
 #define USE_SERIAL_2_STDIN     1
 #define SERIAL_2_PA2_PA3       0
 #define SERIAL_2_PD5_PD6       1
+#define USE_SERIAL_2_FLOW      0
+#define USE_SERIAL_2_SW_FLOW   0
 
 #define HAS_SERIAL_3           0
 #define USE_SERIAL_3_STDIN     0