/tags/ttn-post-libtool-1-4-3-upgrade/SWIG/Examples/test-suite/mzscheme/char_constant_runme.scm
# · Lisp · 6 lines · 5 code · 1 blank · 0 comment · 0 complexity · bb4f3ee64da6c956318b03a575520604 MD5 · raw file
- (load-extension "char_constant.so")
- (if (and (char? (CHAR-CONSTANT))
- (string? (STRING-CONSTANT)))
- (exit 0)
- (exit 1))