| 12345678910111213141516171819 |
- (library (lib string-procs)
- (export string-format)
- (import
- (except (rnrs base) let-values map error)
- (only (guile)
- lambda* λ
- simple-format
- call-with-output-string)
- ;; (ice-9 textual-ports)
- ))
- (define string-format
- (λ (format-string . args)
- (call-with-output-string
- (λ (string-port)
- (apply simple-format
- (cons string-port (cons format-string args)))))))
|
