(scm ps)
(scm pysk)
(scm ascii-script)
+ (scm sketch)
)
(define output-alist
("scm" . ,write)
("as" . ,as-output-expression)
("pysk" . ,pysk-output-expression)
+ ("sketch" . ,sketch-output-expression)
))
-
-
(define (find-dumper format )
(let*
((d (assoc format output-alist)))
"sketch.scm"
"pdf.scm"
"pdftex.scm"
- "ascii-script.scm"
"c++.scm"
"grob-property-description.scm"
"translator-property-description.scm"
+1