summaryrefslogtreecommitdiff
path: root/main.c
diff options
context:
space:
mode:
Diffstat (limited to 'main.c')
-rw-r--r--main.c12
1 files changed, 9 insertions, 3 deletions
diff --git a/main.c b/main.c
index 463e881..f546384 100644
--- a/main.c
+++ b/main.c
@@ -38,10 +38,16 @@ usage(void)
void
repl(int argc, char *argv[])
{
- USED(argc);
- USED(argv);
+ Term *args = nil;
+ while(argc > 0){
+ Term *arg = mkatom(runesmprint("%s", argv[argc-1]));
+ args = appendterm(arg, args);
+ argc--;
+ }
+ args = mklist(args);
Term *mod = mkatom(L"repl");
- Term *pred = mkatom(L"repl");
+ Term *pred = mkcompound(L"repl", 1, args);
+
mod->next = pred;
Term *goal = mkcompound(L":", 2, mod);
evalquery(goal);