diff --git a/examples/test.modal b/examples/test.modal index c28e6d2..8996d78 100644 --- a/examples/test.modal +++ b/examples/test.modal @@ -13,4 +13,4 @@ <> (?x ?y swap) (?y ?x) <> (?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 \ No newline at end of file +(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) \ No newline at end of file diff --git a/src/modal.c b/src/modal.c index adc3bf6..22a71f1 100644 --- a/src/modal.c +++ b/src/modal.c @@ -11,7 +11,7 @@ static char bank_a[0x4000], *prog_ = bank_a; static char bank_b[0x4000], *outp_ = bank_b; static char *regs[0x100]; -#define spacer(c) (c < 0x21 || c == '(' || c == ')' || !c) +#define spacer(c) (c < 0x21 || c == '(' || c == ')') static char * walk(char *s)