[openfirmware] [commit] r1834 - forth/lib

[Mitch Bradley]

Actually should be @ / ! everywhere.  Thanks for finding the problem.

Segher Boessenkool wrote:
>> +: 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
>
>
> _______________________________________________
> openfirmware mailing list
> openfirmware at openfirmware.info
> https://openfirmware.info/mailman/listinfo/openfirmware