/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

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