mes: simple-format: support ~A, ~S.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 3 Feb 2018 19:06:38 +0000 (20:06 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 3 Feb 2018 19:06:38 +0000 (20:06 +0100)
* module/mes/display.scm (simple-format): support ~A, ~S.

module/mes/display.mes

index e6831658396590bb5a4d11fd32172a090078b41b..91269703e7c36508a3ba83cb3c79e23dd9a0727e 100644 (file)
                                          (simple-format (cdr lst) args))
                 (let ((c (cadr lst)))
                   (case c
+                    ((#\A) (display (car args) port))
                     ((#\a) (display (car args) port))
-                    ((#\s) (write (car args) port)))
+                    ((#\S) (write (car args) port))
+                    ((#\s) (write (car args) port))
+                    (else (display (car args) port)))
                   (simple-format (cddr lst) (cdr args)))))))
     
     (if destination (simple-format lst rest)
         (with-output-to-string
           (lambda () (simple-format lst rest))))))
+
 (define format simple-format)