/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. 

  2. 

  3. (if (and (char? (CHAR-CONSTANT))
    4. 

  4. 	 (string? (STRING-CONSTANT)))
    5. 

  5.     (exit 0)
    6. 

  6.     (exit 1))
    7.