(append addons
(mapcar
(lambda (name)
- (intern (file-name-sans-extension name)))
+ (unless (file-directory-p
+ (expand-file-name name riece-addon-directory))
+ (intern (file-name-sans-extension name))))
(directory-files riece-addon-directory nil "\\`[^.]" t)))
addons)))