+;; dumper-compatibility
+(define output-ps #f)
+(define (ps-output-expression expr port)
+ (if (not output-ps)
+ (let ((ps-module (resolve-module '(scm output-ps))))
+ (eval '(use-modules (guile) (ice-9 regex) (srfi srfi-13) (lily))
+ ps-module)
+ (set! output-ps ps-module)))
+ (display (eval expr output-ps) port))
+