todos: "1array append" is suffix. Thanks, jonenst!

mrjbq7 · Jan 23, 2011 · 22bb180 · 22bb180
1 parent 9728bc4
commit 22bb180
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/todos/todos.factor b/todos/todos.factor
@@ -19,7 +19,7 @@ IN: todos
     CHAR: \n todo member? [ "invalid" throw ] when
     vocab vocab-todo :> todos
     todo todos member? [
-        todos todo 1array append vocab set-vocab-todo
+        todos todo suffix vocab set-vocab-todo
     ] unless ;
 
 : todos. ( vocab -- )