PageRenderTime 46ms CodeModel.GetById 23ms RepoModel.GetById 0ms app.codeStats 0ms

/trunk/Examples/test-suite/schemerunme/char_constant.scm

#
Lisp | 4 lines | 4 code | 0 blank | 0 comment | 0 complexity | 383cb2320e2ab478eac384679a5f6696 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
  1. (if (and (char? (CHAR-CONSTANT))
  2. (string? (STRING-CONSTANT)))
  3. (exit 0)
  4. (exit 1))