From d5a6a510071bfd27e6578468f9f914a1cd6bd34c 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 f1689c1518..8af5b3fa3d 100644 --- a/scm/output-ps.scm +++ b/scm/output-ps.scm @@ -272,7 +272,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))))) @@ -343,14 +343,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