Hi, > + (with-directory-excursion dir > + (and (file-exists? fonts-scale-file) > + (delete-file fonts-scale-file)) > + (and (file-exists? fonts-dir-file) > + (delete-file fonts-dir-file)) > + (system* mkfontscale) > + (system* mkfontdir)
Please do not throw away the status code here (result of system*). You can check for okayness by (zero? (system* ...)).