Pass arguments to repl/1

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);