Commit 693d8cad authored by Erick's avatar Erick

.

parent f19985f9
......@@ -21,7 +21,7 @@
*
* Author: Erick Gallesio [[email protected]]
* Creation date: 28-Dec-1999 22:58 (eg)
* Last file update: 18-Mar-2012 18:08 (eg)
* Last file update: 18-Mar-2012 19:06 (eg)
*/
......@@ -1211,7 +1211,6 @@ EXTERN_PRIMITIVE("string->symbol", string2symbol, subr1, (SCM string));
int STk_symbol_flags(register char *s);
SCM STk_intern(char *name);
SCM STk_intern_ci(char *name);
SCM STk_make_uninterned_symbol(char *name);
int STk_init_symbol(void);
......
......@@ -22,7 +22,7 @@
*
* Author: Erick Gallesio [[email protected]]
* Creation date: 20-Nov-1993 12:12
* Last file update: 18-Mar-2012 18:11 (eg)
* Last file update: 18-Mar-2012 19:07 (eg)
*/
#include <ctype.h>
......@@ -80,6 +80,10 @@ SCM STk_intern(char *name)
return res;
}
#ifdef FIXME
/* Devenue inutile */
SCM STk_intern_ci(char *name)
{
char *s;
......@@ -89,8 +93,6 @@ SCM STk_intern_ci(char *name)
return STk_intern(name);
}
#ifdef FIXME
//EG: SCM STk_global_env2list(void)
//EG: {
//EG: register SCM symbol, res = STk_nil;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment