* txr.c (txr_main): Allow Lisp code executed via -e and -p options to

see the bindings set up by prior -D options.

1 files changed, 2 insertions, 2 deletions

diff --git a/txr.c b/txr.c
index 4d666635..c72973a0 100644
--- a/txr.c
+++ b/txr.c
@@ -407,12 +407,12 @@ int txr_main(int argc, char **argv)
         spec_file = arg;
         break;
       case 'e':
-        eval_intrinsic(lisp_parse(arg, std_error), nil);
+        eval_intrinsic(lisp_parse(arg, std_error), make_env(bindings, nil, nil));
         evaled = t;
         break;
       case 'p':
         obj_print(eval_intrinsic(lisp_parse(arg, std_error),
-                                 nil), std_output);
+                                 make_env(bindings, nil, nil)), std_output);
         put_char(chr('\n'), std_output);
         evaled = t;
         break;