1 files changed, 9 insertions(+), 5 deletions(-)

M magic.fs

@@ 1,4 1,4 @@
-vocabulary magic also magic definitions
+\ vocabulary magic also magic definitions
 
 struct cell% field intelligence-dots
     cell% field wits-dots


@@ 42,7 42,7 @@ end-struct mage-struct
 0 fate-dots constant fate
 0 forces-dots constant forces
 0 life-dots constant life
-0 matter-dots constasnt matter
+0 matter-dots constant matter
 0 mind-dots constant mind
 0 prime-dots constant prime
 0 space-dots constant space


@@ 53,11 53,15 @@ end-struct mage-struct
 : mage \G Creates a named mage with uninitialized data
   create mage-struct mage-struct %allot ;
 
-: spell \G Creates a named spell with ( dots arcanum -- )
+: spell \G Creates a named spell with ( arcanum dots -- )
     \G where arcanum is the offset into a `mage-struct`
     \G (ie. the value of 0 <arcanum>-dots)
     create 2, ;
 
-2 death spell
+: spell-arcanum ( a -- w )
+    cell + @ ;
 
-previous
+\ example spell
+death 2 spell decay
+
+\ previous