Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Factoring out >fetch-queue |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
86856020fd00bc8b32b6032832f60dad |
User & Date: | bernd 2020-03-05 14:42:07.871 |
Context
2020-03-05
| ||
15:59 | Bump version number check-in: d24e67b97a user: bernd tags: trunk, 0.9.7-20200305 | |
14:42 | Factoring out >fetch-queue check-in: 86856020fd user: bernd tags: trunk | |
2020-03-04
| ||
22:44 | Forward state what you have check-in: 45aec71ad2 user: bernd tags: trunk | |
Changes
Changes to msg.fs.
︙ | ︙ | |||
650 651 652 653 654 655 656 | : >have-group ( addr u -- ) msg-group-o { w^ grp } 2dup have-group# #@ nip IF grp last# cell+ +unique$ ELSE grp cell 2swap have-group# #! THEN ; | | < > > | 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 | : >have-group ( addr u -- ) msg-group-o { w^ grp } 2dup have-group# #@ nip IF grp last# cell+ +unique$ ELSE grp cell 2swap have-group# #! THEN ; : >fetch-queue ( addr u -- ) 2dup need-hashed? IF fetch-queue[] ['] $ins[] resize-sema c-section drop ELSE 2drop THEN ; : ?fetch ( addr u -- ) key| 2dup >have-group >fetch-queue ; : .posting ( addr u -- ) 2dup keysize /string 2dup printable? IF '[' emit type '@' emit ELSE ." #[" 85type ." /@" THEN key| .key-id? ; |
︙ | ︙ |