ref: 5904f620eea9c77d9cc7a32553b30d87b1543ae3
parent: 1dde9b5ae36ddab2385148228da62ffbff37cdaa
author: Ori Bernstein <[email protected]>
date: Sun Dec 14 15:53:31 EST 2014
Fix next() for single char args.
--- a/libstd/optparse.myr
+++ b/libstd/optparse.myr
@@ -64,7 +64,7 @@
match optinfo(ctx, c)
| `None:
- fatal(1, "Unexpected argument %c\n", c)
+ fatal(1, "Unexpected argument '%c'\n", c)
| `Some (true, needed):
/* -arg => '-a' 'rg' */
if ctx.curarg.len > 0
@@ -82,7 +82,7 @@
;;
| `Some (false, _):
arg = ""
- if ctx.curarg.len != 0
+ if ctx.curarg.len == 0
next(ctx)
;;
;;