[cvs-nhc98] When generating the .hx file, add top-level pattern-bindin