Fix char?

scm/inc/compiler.scm

;; assembly resources:
;;  - https://en.wikipedia.org/wiki/X86_instruction_listings
(define (emit instr . args)
  (display "\t")
  (display (apply format instr args))
        (emit-compare))
       ((char?)
        (emit-expr (primcall-operand1 x))
        (emit "andl $~a, %eax" #b00001111)
        (emit "andl $~a, %eax" #b11111111)
        (emit "cmpl $~a, %eax" #b00001111)
        (emit-compare))
       ((boolean?)

scm/inc/tests.scm

    ["(char? 1412)" "#f\n"]
    ["(char? 10)" "#f\n"]
    ["(char? -1421)" "#f\n"]
    ;["(char? #t)" "#f\n"]
    ;["(char? #f)" "#f\n"]
    ;["(char? ())" "#f\n"]
    ["(char? #t)" "#f\n"]
    ["(char? #f)" "#f\n"]
    ["(char? ())" "#f\n"]
    ])