--- gforth/Attic/primitives 1994/11/14 19:01:17 1.24 +++ gforth/Attic/primitives 1994/11/23 16:54:40 1.25 @@ -601,7 +601,7 @@ f_addr = fp; fp! f_addr -- new fp_store fp = f_addr; -;s -- core exit +;s -- fig semis ip = (Xt *)(*rp++); >r w -- core,fig to_r