PageRenderTime 51ms CodeModel.GetById 28ms RepoModel.GetById 0ms app.codeStats 0ms

/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
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  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. 

  7.