diff options
Diffstat (limited to 'main.c')
-rw-r--r-- | main.c | 12 |
1 files changed, 9 insertions, 3 deletions
@@ -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); |