diff options
| -rw-r--r-- | csc/compare.csc | 4 |
1 files changed, 3 insertions, 1 deletions
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, |