Commit a9e47308 authored by Bernd Paysan's avatar Bernd Paysan

Factoring out >fetch-queue

parent c88c6022
......@@ -654,11 +654,12 @@ forward need-hashed?
ELSE
grp cell 2swap have-group# #!
THEN ;
: ?fetch ( addr u -- )
key| 2dup >have-group
: >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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment