Пример #1
0
        // (c -- ) { -- s}
        private int WordAction()
        {
            //if (_interpreter.IsCompiling == false)
            //{
            //    throw new Exception("WORD outside a new word definition.");
            //}

            _interpreter.StackExpect(1);
            _interpreter.ObjectStackFree(1);

            //_interpreter.WordBeingDefined.AddWord(new StringLiteralWord(_interpreter, _interpreter.GetTerminatedString((char)_interpreter.Pop(), false, true)));
            _interpreter.OPush(_interpreter.ParseTerminatedString((char)_interpreter.Pop(), false, true));

            return(1);
        }