Verified Commit 397eeefb authored by Bernd Paysan's avatar Bernd Paysan
Browse files

CS-DROP proposal allows dropping of source&dest

parent 3b7be279

kernel/cond.fs

+22 −22
Original line number Diff line number Diff line
@@ -89,7 +89,7 @@ variable backedge-locals 
    dup cs-item? ; 



: CS-DROP ( dest -- ) \ gforth

    non-orig? 2drop ;

    cs-item? 2drop ;



: cs-push-part ( -- list addr )

    locals-list @ here ;