sage
/
pebblisp
1
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use readline history.

This commit is contained in:
Sage Vaillancourt 2022-03-15 22:47:46 -04:00
parent f37969418d
commit 4decbbbe5c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/pebblisp.c
View File

@ -1050,11 +1050,13 @@ Object systemCall(Object process, Object _, struct Environment* env)
void repl(struct Environment* env) void repl(struct Environment* env)
{ {
char* buf; char* buf;
using_history();
while ((buf = readline("pebblisp::> ")) != NULL) { while ((buf = readline("pebblisp::> ")) != NULL) {
if (strcmp("q", buf) == 0) { if (strcmp("q", buf) == 0) {
free(buf); free(buf);
break; break;
} }
add_history(buf);
Object o = parseEval(buf, env); Object o = parseEval(buf, env);
printObj(&o); printObj(&o);
free(buf); free(buf);