From 8ef27e2fe652a8b29a8b57589863f2f2b45f9425 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Fri, 16 Jul 2021 15:36:42 +0000 Subject: Pass arguments to repl/1 --- main.c | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'main.c') 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); -- cgit v1.2.3