From 8b7cd604d16b5f01128dda2927dde2c8dfe1f2dd Mon Sep 17 00:00:00 2001
From: root <root@shack.(none)>
Date: Fri, 7 May 2010 04:50:54 +0200
Subject: noise: escape '<' and '>' in reader

---
 noise | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/noise b/noise
index f979c34c..cb4b8531 100755
--- a/noise
+++ b/noise
@@ -77,7 +77,7 @@ readline() {
   { read && echo "$REPLY" ; } | sed -rn "
     s/[']//g
     s/~%/\n/g
-    s/([^\\])#/\1\\\\#/g
+    s/([^\\])([#<>])/\1\\\\\2/g
     s:^/([a-z_]+)([[:space:]]+(.*))?$:command=\1; args='\3';:p;t
     s@^([[:alnum:]_/+-]+):[[:space:]]*(.*)@command=lang; args='\1 \2';@p;t
     s@^\![[:space:]]*(.*)@command=play; args='\1';@p;t
-- 
cgit v1.2.3