fix l-parttern.c's bug