txr: bind -D-valueless variables to empty string.

* txr.c (txr_main): Bind variables specified with -D but without
values to the empty string, as documented in the manual.

1 files changed, 1 insertions, 1 deletions

diff --git a/txr.c b/txr.c
index f8e47b04..0a9451eb 100644
--- a/txr.c
+++ b/txr.c
@@ -668,7 +668,7 @@ int txr_main(int argc, char **argv)
       else if (deflist)
         bindings = cons(cons(sym, car(deflist)), bindings);
       else
-        bindings = cons(cons(sym, t), bindings);
+        bindings = cons(cons(sym, string(L"")), bindings);
 
       match_reg_var(sym);