[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