source: abuse/branches/pd/macabuse/src/language.c @ 161

Last change on this file since 161 was 49, checked in by Sam Hocevar, 15 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.