--- gforth/locals.fs 2003/03/09 15:16:50 1.6 +++ gforth/locals.fs 2003/03/22 10:04:07 1.7 @@ -35,10 +35,10 @@ Variable locals here locals ! 100 ( so : r last @ lastcfa @ here locals @ dp ! +: local: ( -- ) postpone >r latest latestxt here locals @ dp ! cell loffset +! Create loffset @ , immediate (local here locals ! dp ! lastcfa ! last ! ; immediate -: flocal: ( -- ) last @ lastcfa @ here locals @ dp ! +: flocal: ( -- ) latest latestxt here locals @ dp ! BEGIN loffset @ 0 1 floats fm/mod drop WHILE 0 postpone Literal postpone >r 1 cells loffset +! REPEAT postpone f>r Create loffset @ , immediate (flocal