projects / profile / ivi / swig.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Upstream version 1.3.40
[profile/ivi/swig.git] / Examples / test-suite / mzscheme / char_constant_runme.scm
1 (load-extension "char_constant.so")
2
3 (if (and (char? (CHAR-CONSTANT))
4          (string? (STRING-CONSTANT)))
5     (exit 0)
6     (exit 1))
Domain: SCM / Uncategorized;