imported 9.0.300

[ckermit.git] / ckuus5.c

diff --git a/ckuus5.c b/ckuus5.c
index 744d75e..d542de3 100644 (file)
--- a/ckuus5.c
+++ b/ckuus5.c
@@ -11965,6 +11965,21 @@ shofea() {
     flag = 1;
 #endif /* CK_XYZ */
 
+#ifdef NOFLOAT
+    printf(" No floating-point arithmetic\n");
+    if (++lines > cmd_rows - 3) { if (!askmore()) return(1); else lines = 0; }
+    flag = 1;
+    printf(" No S-Expressions (LISP interpreter)\n");
+    if (++lines > cmd_rows - 3) { if (!askmore()) return(1); else lines = 0; }
+    flag = 1;
+#else
+#ifdef NOSEXP
+    printf(" No S-Expressions (LISP interpreter)\n");
+    if (++lines > cmd_rows - 3) { if (!askmore()) return(1); else lines = 0; }
+    flag = 1;
+#endif /* NOSEXP */
+#endif /* NOFLOAT */
+
 #ifdef NOTLOG
     printf(" No transaction log\n");
     if (++lines > cmd_rows - 3) { if (!askmore()) return(1); else lines = 0; }