picolisp

commit 11f5095169a79ede5f4663297d76890cb7467894
parent 6f9023e1859fd3216ba7ab11bbee88e9145a42bd
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon, 13 Jun 2011 10:34:58 +0200

'hd': Print DEL also as '.'
Diffstat:
M
lib/misc.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/misc.l b/lib/misc.l
@@ -1,4 +1,4 @@
-# 25feb11abu
+# 13jun11abu
 # (c) Software Lab. Alexander Burger
 
 # *Allow *Tmp
@@ -468,7 +468,7 @@
                   (prin (pad 2 (hex N)) " ") )
                (space (inc (* 3 (- 16 (length L)))))
                (for N L
-                  (prin (if (<= 32 N 127) (char N) ".")) )
+                  (prin (if (>= 126 N 32) (char N) ".")) )
                (prinl) ) ) ) ) )
 
 # vi:et:ts=3:sw=3