trunk/Examples/test-suite/schemerunme/char_constant.scm

(if (and (char? (CHAR-CONSTANT))
	 (string? (STRING-CONSTANT)))
    (exit 0)
    (exit 1))