fix style
move (picrin record-primitive) to (picrin record)