mescc: Support bitwise or.

[mes.git] / scaffold / mini-mes.c

diff --git a/scaffold/mini-mes.c b/scaffold/mini-mes.c
index 0d8fdb94ff5af7d44ffcf6c9148de81ece2ac22a..8ab0a706326c81a112acf5c2f86a21a20cbc4743 100644 (file)
--- a/scaffold/mini-mes.c
+++ b/scaffold/mini-mes.c
@@ -1488,9 +1488,7 @@ logior (SCM x) ///((arity . n))
 #if __GNUC__
       n |= VALUE (car (x));
 #else
-      puts ("FIXME: logior\n");
-      //FIXME
-      //n = n | VALUE (car (x));
+      n = n | VALUE (car (x));
 #endif
       x = cdr (x);
     }