2 #include <readline/readline.h>
7 /* Read-Send-Print-Loop */
8 void rspl(int pin, int pout)
10 static char *line = (char *)NULL;
19 line = readline("gacela>");
23 if (strcmp(line, "(quit)") == 0)
26 write(pout, line, strlen(line));
33 int main (int argc, char *argv[])
46 static char *line = (char *)NULL;
53 scm_c_eval_string("(if (char-ready? (current-input-port)) (format #t \"~a guile~%\" (read)))");
62 printf("%s-\n", line);