> +: getq ( q -- char ) > + dup >qgetp @ ( q getptr ) > +: qempty? ( q -- flag ) dup >qgetp l@ swap >qputp @ = ; > +: qfull? ( q -- flag ) dup >qputp l@ decqp swap >qgetp @ = ; @ should be l@ everywhere here? Segher