d6
/
modal
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Trim program end

This commit is contained in:
Devine Lu Linvega 2024-04-08 15:26:53 -07:00
parent 45ebcb6a23
commit d6a3f2af7b
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
examples/test.modal
View File

@ -13,4 +13,7 @@
<> (?x ?y swap) (?y ?x) <> (?x ?y swap) (?y ?x)
<> (?x pop) () <> (?x pop) ()
(implode reverse (explode hello)) (read) (explode hello) empty-register (eq abc abc) (eq abc def) (1 2 3) (4 5 6) swap pop dup (hey 1234 pop) (implode reverse (explode hello)) (read) (explode hello) empty-register (eq abc abc) (eq abc def) (1 2 3) (4 5 6) swap pop dup (hey 1234 pop)

2
src/modal.c
View File

@ -205,7 +205,7 @@ main(int argc, char **argv)
} }
*w++ = c; *w++ = c;
} }
*w++ = 0; while(*(--w) <= ' ') *w = 0;
fclose(f); fclose(f);
regs[':'] = argv[2]; regs[':'] = argv[2];
while(rewrite()) while(rewrite())