- (let ([name (dtor-name ctor-name index)])
- (cons name (cons (list prod-type ctor-name index) `(abs ,prod-type ,part-type)))))
+ (let* ([name (dtor-name ctor-name index)]
+ [info (list prod-type ctor-name index part-type)])
+ (cons name (cons info `(abs ,prod-type ,part-type)))))