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.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
Unified Diff 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# ! ;