/trunk/Examples/test-suite/schemerunme/char_constant.scm
Lisp | 4 lines | 4 code | 0 blank | 0 comment | 0 complexity | 383cb2320e2ab478eac384679a5f6696 MD5 | raw file
1(if (and (char? (CHAR-CONSTANT)) 2 (string? (STRING-CONSTANT))) 3 (exit 0) 4 (exit 1))