projects
/
muddle-interpreter.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Compute the version number dynamically
[muddle-interpreter.git]
/
src
/
read.c
diff --git
a/src/read.c
b/src/read.c
index b8570f3778f09fa13f134a1a2af088d00e1cce9e..0f6a63d840108567ed2180c37dbe70afca1b5df0 100644
(file)
--- 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 "read.h"
#include "object.h"
+#include "oblist.h"
#include <assert.h>
#include <stdio.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)
{
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;
}
st->framelen++;
return p + n;
}