picolisp

commit 85ae822e998b6463fef8b99cc3ab4712daa33ff1
parent fafa300ccd5d751df19b82d32926407336ddd579
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 21 Apr 2011 08:12:52 +0200

Operand size glitch
Diffstat:
M
src64/ht.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src64/ht.l b/src64/ht.l
@@ -1,4 +1,4 @@
-# 20apr11abu
+# 21apr11abu
 # (c) Software Lab. Alexander Burger
 
 (data 'HtData)
@@ -534,7 +534,7 @@ skip CHUNK  # <Y III> Chunk buffer
 : Newlines asciz "0\\r\\n\\r\\n"
 
 (code 'chrHex_AF 0)
-   ld B (Chr)
+   ld A (Chr)
    cmp B (char "0")  # Decimal digit?
    if ge
       cmp B (char "9")