Fixing some old-style coding that became obsolete

around November 2009.

* lib.c (lazy_str): Use the efficient lit("...") that
doesn't allocate memory instead of string(L"...").
(lazy_str_get_trailing_list): Likewise.

* stream.c (open_process): Likewise.

* txr.c (remove_hash_bang_line): Likewise.

1 files changed, 1 insertions, 2 deletions

diff --git a/txr.c b/txr.c
index 5ff5e2e0..bcf85f9d 100644
--- a/txr.c
+++ b/txr.c
@@ -131,7 +131,6 @@ static val remove_hash_bang_line(val spec)
     return spec;
 
   {
-    val shbang = string(L"#!");
     val firstline = first(spec);
     val firstelem = first(firstline);
     val item;
@@ -145,7 +144,7 @@ static val remove_hash_bang_line(val spec)
 
     if (stringp(item)) {
       val twochars = sub_str(item, zero, two);
-      if (equal(twochars, shbang))
+      if (equal(twochars, lit("#!")))
         return rest(spec);
     }