Trim program end

examples/test.modal

@@ -13,4 +13,7 @@
 <> (?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 (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)
+
+
+

src/modal.c

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