**********************************************************************
* Name:		RHASH
* Stack:	(    %lid --> hxs )
*		( hxs_lid --> hxs )
* Desc:		Fetch library hash table
**********************************************************************
ASSEMBLE
	CON(1)	8
RPL
xNAME RHASH
::
  CK1
  DTYPEREAL? IT COERCE			( %lid --> #lid )
  DUPTYPEHSTR? IT HXS>#			( hxs_lid --> #lid )
  DUPTYPEBINT? NcaseTYPEERR
  GX? case
  :: G_GETHASH ?SKIP SETNOLIBERR ?ACCPTR> ;
  GETHASH ?SKIP SETNOLIBERR ?Cov#>
;

**********************************************************************