variable state

: [             false state ! ; immediate
: ]             true state ! ;
: compiling?    state @ ;
: interpreting? state @ 0= ;

: ,call         drop ;
: s"            postpone (s") ;

: literal       drop ; immediate
: postpone      bl word drop ; immediate