From 5e4478c53e10949e0f5262c39cfc78cd437b18a4 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Wed, 17 Jan 2007 15:08:29 +0100 Subject: [PATCH] use simple-format #f argument throughout. --- scm/output-ps.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/scm/output-ps.scm b/scm/output-ps.scm index 31f2b9f442..a5abcf2079 100644 --- a/scm/output-ps.scm +++ b/scm/output-ps.scm @@ -270,7 +270,7 @@ ;; rotation around given point (define (setrotation ang x y) - (format "gsave ~a translate ~a rotate ~a translate\n" + (format #f "gsave ~a translate ~a rotate ~a translate\n" (numbers->string4 (list x y)) (number->string ang) (numbers->string4 (list (* -1 x) (* -1 y))))) @@ -341,14 +341,15 @@ ) ;; WARNING: this is a vulnerability: a user can output arbitrary PS code here. - (cons (format "~a ~a " - (string-join (map (lambda (x) (format "~a " x)) args) " ") + (cons (format #f + "~a ~a " + (string-join (map (lambda (x) (format #f "~a " x)) args) " ") head) (convert-path-exps (drop rest arity)))) '())) - (format + (format #f "1 setlinecap ~a setlinewidth\n~a stroke" thickness (string-join (convert-path-exps exps) " "))) -- 2.39.5