From 685a50d312624190c2f1beb4a0091fee4a7b00a6 Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Mon, 25 Jul 2022 20:52:21 -0700 Subject: Fix a bug in comparing bytevectors. --- csc/compare.csc | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/csc/compare.csc b/csc/compare.csc index 794d795..fad9e4b 100644 --- a/csc/compare.csc +++ b/csc/compare.csc @@ -205,7 +205,9 @@ (cons bytevector? (lambda (b) (list (cons '!type 'bytevector) (cons 'value (loop for i below (bytevector-length b) - collect (string-append "0x" (number->string (bytevector-u8-ref b i)))))))))) + collect (string-append "0x" (number->string + (bytevector-u8-ref b i) + 16))))))))) ; Returns a string diff between x and y. Diff knows how to compare lists, -- cgit v1.3.1