7 lines
128 B
Scheme
7 lines
128 B
Scheme
(load-extension "char_constant.so")
|
|
|
|
(if (and (char? (CHAR-CONSTANT))
|
|
(string? (STRING-CONSTANT)))
|
|
(exit 0)
|
|
(exit 1))
|