fix bug in variable addressing if they weren't immediately written to

This commit is contained in:
David 2021-02-25 21:13:03 -05:00
parent e428c883db
commit 0784661e7c
2 changed files with 2 additions and 2 deletions

View File

@ -679,7 +679,7 @@ func (b *Builtins) Variable(c *Context) func(string) error {
c.Dictionary.AddWord(string(w), Word{Name: string(w), Variable: next})
j, _ := c.RStack.Pop()
c.RStack.Push(j + i - 1) // push the end-point onto the stack
return nil
return c.Memory.Write(next, []int{0})
default:
w = append(w, next[i])
continue

2
mem.go
View File

@ -28,7 +28,7 @@ func (m *Memory) Write(addr int, values []int) error {
m.intern[addr+i] = values[i]
}
// we've written past our marker, note that
if m.nextFree < addr+len(values) {
if m.nextFree <= addr+len(values) {
m.nextFree = addr + len(values)
}
return nil