~mdw
/
mLib
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5ce3df2
)
Don't include trailing zero in the name of a gensym.
author
mdw
<mdw>
Tue, 18 Oct 2005 08:42:51 +0000
(08:42 +0000)
committer
mdw
<mdw>
Tue, 18 Oct 2005 08:42:51 +0000
(08:42 +0000)
atom.c
patch
|
blob
|
blame
|
history
diff --git
a/atom.c
b/atom.c
index
0d74478
..
ce8295c
100644
(file)
--- a/
atom.c
+++ b/
atom.c
@@
-1,6
+1,6
@@
/* -*-c-*-
*
- * $Id
: atom.c,v 1.5 2004/04/08 01:36:11 mdw Exp
$
+ * $Id$
*
* Atom management
*
@@
-153,7
+153,7
@@
atom *atom_gensym(atom_table *t)
a = x_alloc(t->t.t.a, sizeof(atom) + sz);
a->b.name = (char *)(a + 1);
memcpy(a->b.name, buf, sz);
- a->b.len = sz;
+ a->b.len = sz
- 1
;
a->b.b.hash = UNIHASH(&unihash_global, buf, sz);
a->f = ATOMF_GENSYM;
a->b.b.next = t->g;