Examples/test-suite/mzscheme/char_constant_runme.scm - third_party/swig - Git at Google

 (load-extension "char_constant.so")

 (if (and (char? (CHAR-CONSTANT))
 	 (string? (STRING-CONSTANT)))
     (exit 0)
     (exit 1))
	(load-extension "char_constant.so")

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