(gml-listener) ( -- )

Vocabulary

gml

Inputs

None

Outputs

None

Definition

USING: combinators debugger io kernel namespaces ;

IN: gml

: (gml-listener) ( -- )
    "GML> " write flush readln [
        [ [ pre-hook get ( -- ) call-effect ] ] dip
        [ run-gml-string post-hook get ( -- ) call-effect ]
        curry compose try [ gml get gml-stack. ] try
        (gml-listener)
    ] when* ;