3125a52331/image/source/vocabs.retro
Download diff| fc349e2cf15e1e11664eb67f38cf4acd59fe042c | 3125a52331ae6d7a6bb77d0ce92a95ddc2580547 | ||
|---|---|---|---|
21 | : fields ( - ) shown .shown 3 copy ; | 21 | : fields ( - ) shown .shown 3 copy ; |
22 | : open ( a- ) @ shown ! .hidden @ .shown @ ! ; | 22 | : open ( a- ) @ shown ! .hidden @ .shown @ ! ; |
23 | : shut ( a- ) @ shown ! .before @ .shown @ ! ; | 23 | : shut ( a- ) @ shown ! .before @ .shown @ ! ; |
24 | : :find ( a-af ) last repeat @ 2dup =if drop @ TRUE ;then dup 0; drop again ; | 24 | : :find ( a-af ) last repeat @ 2dup =if drop @ -1 ;then dup 0; drop again ; |
25 | : open? ( a-af ) dup 1+ @ :find nip ; | 25 | : open? ( a-af ) dup 1+ @ :find nip ; |
26 | : toggle ( a- ) open? if shut ;then open ; | 26 | : toggle ( a- ) open? if shut ;then open ; |
27 | : descend ( - ) shown depth @ 3 * nest + 3 copy depth ++ ; | 27 | : descend ( - ) shown depth @ 3 * nest + 3 copy depth ++ ; |
... | ... | ||
55 | expose ahead | 55 | expose ahead |
56 | expose else expose ;then | 56 | expose else expose ;then |
57 | expose if; expose if | 57 | expose if; expose if |
58 | expose FALSE expose TRUE | ||
59 | expose stub expose ` | 58 | expose stub expose ` |
60 | expose fill expose copy | 59 | expose fill expose copy |
61 | expose zallot expose allot | 60 | expose zallot expose allot |