X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_atom.c;h=745c32fee48ddf6ae615034629b2296852445b7a;hp=cb32b7fe3d0940224db99907a4c62b0d2a9d3787;hb=32f6877288ea6b7eb1cae9a42fbe8e2c5dbb2f08;hpb=2e11cae044cd2c053049effd76df9c5adecb84d7

diff --git a/src/scheme/ao_scheme_atom.c b/src/scheme/ao_scheme_atom.c
index cb32b7fe..745c32fe 100644
--- a/src/scheme/ao_scheme_atom.c
+++ b/src/scheme/ao_scheme_atom.c
@@ -71,8 +71,8 @@ const struct ao_scheme_type ao_scheme_atom_type = {
 
 struct ao_scheme_atom	*ao_scheme_atoms;
 
-struct ao_scheme_atom *
-ao_scheme_atom_intern(char *name)
+static struct ao_scheme_atom *
+ao_scheme_atom_find(char *name)
 {
 	struct ao_scheme_atom	*atom;
 
@@ -86,15 +86,43 @@ ao_scheme_atom_intern(char *name)
 			return atom;
 	}
 #endif
-	ao_scheme_string_stash(0, name);
-	atom = ao_scheme_alloc(name_size(name));
-	name = ao_scheme_string_fetch(0);
+	return NULL;
+}
+
+static void
+ao_scheme_atom_init(struct ao_scheme_atom *atom, char *name)
+{
 	if (atom) {
 		atom->type = AO_SCHEME_ATOM;
+		strcpy(atom->name, name);
 		atom->next = ao_scheme_atom_poly(ao_scheme_atoms);
 		ao_scheme_atoms = atom;
-		strcpy(atom->name, name);
 	}
+}
+
+struct ao_scheme_atom *
+ao_scheme_string_to_atom(struct ao_scheme_string *string)
+{
+	struct ao_scheme_atom	*atom = ao_scheme_atom_find(string->val);
+
+	if (atom)
+		return atom;
+	ao_scheme_string_stash(0, string);
+	atom = ao_scheme_alloc(name_size(string->val));
+	string = ao_scheme_string_fetch(0);
+	ao_scheme_atom_init(atom, string->val);
+	return atom;
+}
+
+struct ao_scheme_atom *
+ao_scheme_atom_intern(char *name)
+{
+	struct ao_scheme_atom	*atom = ao_scheme_atom_find(name);
+	if (atom)
+		return atom;
+
+	atom = ao_scheme_alloc(name_size(name));
+	ao_scheme_atom_init(atom, name);
 	return atom;
 }