Re: [openfirmware] [commit] r1834 - forth/lib

[Segher Boessenkool]

> +: 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