- (define (mac-font? bare-file-name)
- (and
- (eq? PLATFORM 'darwin)
- bare-file-name
- (or
- (string-endswith bare-file-name ".dfont")
- (= (stat:size (stat bare-file-name)) 0))))
-
- (define (load-font font-name-filename)
- (let* ((font (car font-name-filename))
- (name (cadr font-name-filename))
- (file-name (caddr font-name-filename))
+ (define (mac-font? bare-file-name)
+ (and (eq? PLATFORM 'darwin)
+ bare-file-name
+ (or (string-endswith bare-file-name ".dfont")
+ (= (stat:size (stat bare-file-name)) 0))))
+
+ (define (load-font font-psname-filename-fontindex)
+ (let* ((font (list-ref font-psname-filename-fontindex 0))
+ (name (list-ref font-psname-filename-fontindex 1))
+ (file-name (list-ref font-psname-filename-fontindex 2))
+ (font-index (list-ref font-psname-filename-fontindex 3))