(remove-breakpoints) ( quot -- newquot )

Vocabulary

prettyprint.private

Inputs

quot

an object

Outputs

newquot

an object

Definition

USING: combinators kernel make sequences words ;

IN: prettyprint.private

: (remove-breakpoints) ( quot -- newquot )
    [
        [
            {
                { [ dup word? not ] [ , ] }
                { [ dup "break?" word-prop ] [ drop ] }
                {
                    [ dup "step-into?" word-prop ]
                    [ remove-step-into ]
                }
                [ , ]
            } cond
        ] each
    ] [ ] make ;