--- gforth/glocals.fs 1994/10/24 19:15:58 1.8 +++ gforth/glocals.fs 1995/01/30 18:47:50 1.9 @@ -134,7 +134,8 @@ variable locals-dp \ so here's the speci postpone lp@ postpone c! ; : create-local ( " name" -- a-addr ) - \ defines the local "name"; the offset of the local shall be stored in a-addr + \ defines the local "name"; the offset of the local shall be + \ stored in a-addr create immediate here 0 , ( place for the offset ) ; @@ -263,7 +264,7 @@ locals-types definitions : -- ( addr wid 0 ... -- ) } - [char] } word drop ; + [char] } parse 2drop ; forth definitions