![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pass.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to pass.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.7, 2006/02/12 23:45:55 | version 1.8, 2006/02/26 17:23:47 |
|---|---|
| Line 30 UNLOCK user-region extent nip LOCK udp ! | Line 30 UNLOCK user-region extent nip LOCK udp ! |
| \ Set up last and forth-wordlist with the address of the last word's | \ Set up last and forth-wordlist with the address of the last word's |
| \ link field | \ link field |
| UNLOCK tlast @ LOCK | UNLOCK tlast @ LOCK |
| 1 cells - dup forth-wordlist wordlist-id ! Last ! | 1 cells - dup forth-wordlist has? ec 0= [IF] wordlist-id [THEN] ! Last ! |