         { [ dup "step-into" word-prop ] [ "step-into" word-prop call ] }
         { [ dup standard-generic? ] [ effective-method (step-into-execute) ] }
         { [ dup hook-generic? ] [ effective-method (step-into-execute) ] }
+        { [ dup uses \ suspend swap member? ] [ execute break ] }
         { [ dup primitive? ] [ execute break ] }
         [ word-def (step-into-quot) ]
     } cond ;

    +running+ set-status ;

: walker-stopped ( -- )
    +stopped+ set-status
    [ status +stopped+ eq? ]
    [ [ drop f ] handle-synchronous ]
    [ ] while ;

: step-into-all-loop ( -- )
    +running+ set-status

SYMBOL: step-all
SYMBOL: step-into-all
SYMBOL: step-back
SYMBOL: abandon
SYMBOL: call-in

