- (mapcar #'(lambda (string)
- (vector string
- (list 'compile string)))
- (Menubar-items-truncate-list compile-history 10)))))
+ (mapcar #'(lambda (label-value)
+ (vector (first label-value)
+ (list 'compile (second label-value))))
+ (Menubar-items-truncate-history
+ compile-history 10 50)))))