From 4b5e53a0451dc4198399312dcf5ccf097ea53e83 Mon Sep 17 00:00:00 2001
From: "Paul A. Patience" <paul@apatience.com>
Date: Fri, 4 Feb 2022 21:51:36 -0500
Subject: 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.
---
 txr.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
 
-- 
cgit v1.2.3