X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=src%2Fread.c;h=0f6a63d840108567ed2180c37dbe70afca1b5df0;hb=e3dcc1d3966fb95a5a232daa193c6b5d89a06b7e;hp=b8570f3778f09fa13f134a1a2af088d00e1cce9e;hpb=58a5ffdfec139a0c9d399f603b77a764ae8607f7;p=muddle-interpreter.git

diff --git a/src/read.c b/src/read.c
index b8570f3..0f6a63d 100644
--- a/src/read.c
+++ b/src/read.c
@@ -18,6 +18,7 @@ License along with this file. If not, see
 
 #include "read.h"
 #include "object.h"
+#include "oblist.h"
 
 #include <assert.h>
 #include <stdio.h>
@@ -262,7 +263,7 @@ read_token (const char *p, reader_stack * st)
 	n = count_pname (p);
 	if (n > 0)
 	  {
-	    (--(st->pos))->atom = new_atom (0);
+	    (--(st->pos))->atom = oblist_find_or_insert (root, p, n);
 	    st->framelen++;
 	    return p + n;
 	  }