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))
|