get 将使用variable和get其值.

@fede s. nailed it in the comments: get will take a variable and get its value.

所以我从问题中得到的代码变为:

So my code from the question becomes:

: handle-client ( -- )
   remote-address get host>> print flush ;

: <my-server> ( -- threaded-server )
    utf8 <threaded-server>
        "server" >>name
        1234 >>insecure
        [ handle-client ] >>handler ;

: start-my-server ( -- )
    <my-server> [ start-server ] in-thread start-server drop ;