small location fix for desugaring define-struct