Commit 8958b943 authored by Bernd Paysan's avatar Bernd Paysan

Replace NOPE with NO-DO

parent 1488c8f6
......@@ -920,7 +920,7 @@ in net2o : ack-resend ( flag -- ) resend-toggle# and to ack-resend~ ;
data-resend $@len 0 U+DO
data-resend $@ I /string drop @ 0= IF
data-resend I 2 cells $del
0 data-resend $@len I unloop U+DO NOPE
0 data-resend $@len I unloop U+DO NO-DO
ELSE
[ 2 cells ]L
THEN
......@@ -1186,7 +1186,7 @@ Create chunk-adder chunks-struct allot
[: chunks $@ bounds ?DO
I chunk-context @ o = IF
chunks I chunks-struct del$one
unloop chunks next$ ?DO NOPE 0
unloop chunks next$ ?DO NO-DO 0
ELSE chunks-struct THEN +LOOP ;]
resize-sema c-section ;
......@@ -1352,7 +1352,7 @@ queue-class >osize @ buffer: queue-adder
64dup queue-timestamp 64@ 64u> IF
addr queue-xt @ queue-job @ .execute o>
queue I queue-struct del$one
unloop queue next$ ?DO NOPE 0
unloop queue next$ ?DO NO-DO 0
ELSE o> queue-struct THEN
+LOOP 64drop ;
......@@ -1928,7 +1928,7 @@ cookie-size# buffer: tmp-cookie
I .cc-timeout 64@ timeout 64u< IF
cookies I cookie-size# del$one
cookies next$
unloop ?DO NOPE \ this replaces the loop variables
unloop ?DO NO-DO \ this replaces the loop variables
0 \ we re-iterate over the exactly same index
ELSE
cookie-size#
......
......@@ -175,8 +175,8 @@ debug: dummy(
postpone ;
is kill-task ;
[IFUNDEF] NOPE
: NOPE ( c:sys -- )
[IFUNDEF] NO-DO
: NO-DO ( c:sys -- )
\G removes a control structure sys from the stack
drop 2drop ; immediate restrict
[THEN]
......@@ -870,7 +870,7 @@ compsem: sourcefilename postpone sliteral ['] search-help compile, ;
string $@ bounds ?DO
dup I @ = IF
string I cell del$one
unloop string next$ ?DO NOPE 0
unloop string next$ ?DO NO-DO 0
ELSE cell THEN
+LOOP drop ;
......
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