007-hex.scm (539B)
1 ; #x and #X dispatch, lowercase / uppercase / mixed-case digits, and the 2 ; negative-literal form #x-NN. 3 (if (= #x2a 42) 0 (sys-exit 1)) ; lowercase #x, lowercase digits 4 (if (= #X2a 42) 0 (sys-exit 2)) ; uppercase #X 5 (if (= #xff 255) 0 (sys-exit 3)) ; lowercase digits 6 (if (= #xFF 255) 0 (sys-exit 4)) ; uppercase digits 7 (if (= #xFf 255) 0 (sys-exit 5)) ; mixed-case digits 8 (if (= #x-2a -42) 0 (sys-exit 6)) ; negative 9 (if (= #X-Ff -255) 0 (sys-exit 7)) ; negative + uppercase #X + uppercase digits 10 (sys-exit 42)