source: abuse/tags/pd/abuse/src/language.c

Last change on this file was 49, checked in by Sam Hocevar, 12 years ago
  • Imported original public domain release, for future reference.
  • Property svn:keywords set to Id
File size: 212 bytes
Line 
1#include "lisp.hpp"
2
3char *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.