picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
Msrc64/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