Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Clean up nick\! |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
8fca31bb94ee1a10cc79f1dc2e24ec9d |
User & Date: | bernd 2020-02-03 18:16:12.032 |
Context
2020-02-04
| ||
21:35 | Improve history browsing check-in: b5815e53f6 user: bernd tags: trunk | |
2020-02-03
| ||
18:16 | Clean up nick\! check-in: 8fca31bb94 user: bernd tags: trunk | |
18:08 | map finding process updated check-in: 85279f2ea6 user: bernd tags: trunk | |
Changes
Changes to keys.fs.
︙ | ︙ | |||
139 140 141 142 143 144 145 | optr cell ke-nick $@ nick# #! 0 ELSE last# cell+ $@ bounds DO ke-pk $@ I @ .ke-pk $@ str= IF I @ .ke-nick# @ ke-nick# ! I @ .ke-offset 64@ ke-offset 64! I @ .ke-sk sec@ dup IF ke-sk sec! ELSE 2drop THEN | | > > | > > | 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 | optr cell ke-nick $@ nick# #! 0 ELSE last# cell+ $@ bounds DO ke-pk $@ I @ .ke-pk $@ str= IF I @ .ke-nick# @ ke-nick# ! I @ .ke-offset 64@ ke-offset 64! I @ .ke-sk sec@ dup IF ke-sk sec! ELSE 2drop THEN I @ .ke-selfsig $@ IF 64@ ke-selfsig $@ IF 64@ 64u< IF optr @ I ! THEN ELSE drop 64drop THEN ELSE drop THEN UNLOOP EXIT THEN cell +LOOP last# cell+ $@len cell/ optr cell last# cell+ $+! THEN ke-nick# ! ; |
︙ | ︙ |