List-based spitting started

connected.fs

@@ -17,6 +17,8 @@
 
 \ everything that follows here can assume to have a connection context
 
+forward slurp,
+
 scope{ net2o-base
 
 connect-table $@ inherit-table context-table
@@ -45,15 +47,18 @@ connect-table $@ inherit-table context-table
 	over dest-top <> and false dest-end ?!@ drop \ atomic, replaces or!
 	dest-top!
     endwith ;
-$2E net2o: slurped ( $slurped -- ) \g respond to slurped stuff
-    $> spit#$ $+! ;
-$2C net2o: slurp ( -- ) \g slurp in tracked files
++net2o: slurp ( -- ) \g slurp in tracked files
     \ !!FIXME!! this should probably be asynchronous
     net2o:slurp swap ulit, flag, set-top
-    slurp#$ $@ $, slurped  slurp#$ $free
+    slurp,
     ['] do-track-seek net2o:track-all-seeks net2o:send-chunks ;
 +net2o: ack-reset ( -- ) \g reset ack state
     0 ack-state c! ;
++net2o: slurped ( $slurped -- ) \g respond to slurped stuff
+    $> spit#$ $+! ;
+
+in forth : slurp, ( -- )
+    slurp#$ $@ $, slurped  slurp#$ $free ;
 
 \ object handles
 \g 

wiki/commands.md

@@ -165,12 +165,12 @@ Commands are context-sensitive in an OOP method hierarchy sense.
   close all files
 * $2B set-top ( utop flag -- )
   set top, flag is true when all data is sent
-* $2E slurped ( $slurped -- )
-  respond to slurped stuff
 * $2C slurp ( -- )
   slurp in tracked files
-* $2F ack-reset ( -- )
+* $2D ack-reset ( -- )
   reset ack state
+* $2E slurped ( $slurped -- )
+  respond to slurped stuff
 
 ### file commands ###