add-revision ( revision -- )

Vocabulary

webapps.wiki

Inputs

revision

an object

Outputs

None

Definition

USING: accessors db.tuples kernel ;

IN: webapps.wiki

: add-revision ( revision -- )
    [ insert-tuple ] [
        dup title>> <article> select-tuple
        [ amend-article ] [ add-article ] if*
    ] bi ;