EuXLisp: Corrected operation without the readline interface.

Henry · Jan 26, 2011 · 5918cf5 · 5918cf5
1 parent 67c50f6
commit 5918cf5
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/EuXLisp/euxlInit.c b/EuXLisp/euxlInit.c
@@ -143,7 +143,8 @@ euxls_xlframe,
 euxls_gcmsgs,
 euxls_arg_list,
 euxls_next_methods,
-euxls_defextern;
+euxls_defextern,
+euxls_readline;
 
 ///  Continuations
 euxlValue
@@ -163,10 +164,6 @@ euxlValue euxls_check_ref;
 euxlValue euxls_socket_error;
 #endif
 
-#ifdef READLINE
-euxlValue euxls_readline;
-#endif
-
 ///-----------------------------------------------------------------------------
 /// Functions
 ///-----------------------------------------------------------------------------
@@ -417,9 +414,11 @@ void euxcInitSymbols()
     euxls_check_ref = euxmInternAndExport("check-ref");
     #endif
 
-    #ifdef READLINE
     euxls_readline = euxmInternAndExport("*readline*");
+    #ifdef READLINE
     euxmSetValue(euxls_readline, euxs_t);
+    #else
+    euxmSetValue(euxls_readline, euxmNil);
     #endif
 
     // Setup some synonyms

diff --git a/EuXLisp/euxlOS.c b/EuXLisp/euxlOS.c
@@ -58,8 +58,9 @@ int reading;
 ///-----------------------------------------------------------------------------
 /// Local variables
 ///-----------------------------------------------------------------------------
-#ifdef READLINE
 static char* lbuf;
+
+#ifdef READLINE
 static char rl_histfile[255];
 #endif