with-history ( path quot -- )

Vocabulary

readline

Inputs

path	an object
quot	an object

Outputs

None

Definition

USING: continuations io.backend libc readline.ffi ;

IN: readline

:: with-history ( path quot -- )
    path normalize-path :> history-path history-path
    read_history io-error quot
    [ history-path write_history io-error ] finally ; inline