picolisp

commit 263f0d786cbaece46e7c738629fbe204e9371497
parent eb67dc610ff82bdfec80810e356cd1c4ecd466a7
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 13 Mar 2013 11:01:57 +0100

Bug in 'ht:Fmt' on pil64 (encoding of the first character)
Diffstat:
M
src64/ht.l
 | 
13
+++++--------

1 file changed, 5 insertions(+), 8 deletions(-)
diff --git a/src64/ht.l b/src64/ht.l
@@ -1,4 +1,4 @@
-# 07jun12abu
+# 13mar13abu
 # (c) Software Lab. Alexander Burger
 
 (data 'HtData)
@@ -165,21 +165,18 @@
                   call (PutB)
                else
                   call symByteCX_FACX  # Get first byte
-                  cmp B (char "$")  # Dollar, plus or dot?
+                  cmp B (char "$")  # Dollar, plus or minus?
                   jeq 40
                   cmp B (char "+")
                   jeq 40
                   cmp B (char "-")
-                  if eq
-40                   call putHexB  # Encode hexadecimal
-                  else
-                     call (PutB)
-                  end
+                  jne 50
+40                call putHexB  # Encode hexadecimal
                end
                do
                   call symByteCX_FACX  # Next byte
                while nz
-                  memb HtEsc HTESC  # Escape?
+50                memb HtEsc HTESC  # Escape?
                   if eq  # Yes
                      call putHexB  # Encode hexadecimal
                   else