Check-in [8fca31bb94]
Not logged in

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: 8fca31bb94ee1a10cc79f1dc2e24ec9d0767ad1e
User & Date: bernd 2020-02-03 18:16:12
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to keys.fs.

139
140
141
142
143
144
145
146


147


148
149
150
151
152
153
154
	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 $@ drop 64@ ke-selfsig $@ drop 64@ 64u<


		IF  optr @ I !  THEN


		UNLOOP  EXIT
	    THEN
	cell +LOOP
	last# cell+ $@len cell/
	optr cell last# cell+ $+!
    THEN  ke-nick# ! ;








|
>
>
|
>
>







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# ! ;