source:
abuse/trunk/src/language.cpp
@
2
| Last change on this file since 2 was 2, checked in by , 18 years ago | |
|---|---|
| File size: 212 bytes | |
| Line | |
|---|---|
| 1 | #include "lisp.hpp" |
| 2 | |
| 3 | char *lang_string(char *symbol) |
| 4 | { |
| 5 | void *v=find_symbol(symbol); |
| 6 | if (!v || !DEFINEDP(symbol_value(v))) return "Language symbol missing!"; |
| 7 | else return lstring_value(symbol_value(v)); |
| 8 | } |
| 9 |
Note: See TracBrowser
for help on using the repository browser.
