From b26f98511a911537fef73a1925df6d91a7829b6e Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 6 Dec 2013 08:36:12 -0800
Subject: 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.
---
 txr.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'txr.c')

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