Permalink
Browse files

EuXLisp: Corrected operation without the readline interface.

  • Loading branch information...
1 parent 67c50f6 commit 5918cf5be6a715742be48bd8b73caf53fba1c36e Henry committed Jan 26, 2011
Showing with 7 additions and 7 deletions.
  1. +5 −6 EuXLisp/euxlInit.c
  2. +2 −1 EuXLisp/euxlOS.c
View
@@ -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
View
@@ -58,8 +58,9 @@ int reading;
///-----------------------------------------------------------------------------
/// Local variables
///-----------------------------------------------------------------------------
-#ifdef READLINE
static char* lbuf;
+
+#ifdef READLINE
static char rl_histfile[255];
#endif

0 comments on commit 5918cf5

Please sign in to comment.