string-with-space
Name
string-with-space -- Returns string with a space appended or the empty string
Synopsis
(string-with-space string #!optional (space " "))
Description
If string is not the empty string, returns string with a
space appended. If string is empty, or is not a (string?),
returns string unmodified.
- string
The string onto which a space should be appended.
- space
If specified, the space to append. Defaults to a single space.
Author
Norman Walsh, <ndw@nwalsh.com>
Source Code
(define (string-with-space string #!optional (space " "))
;; Returns string with a space appended or the empty string
(if (string? string)
(if (equal? string "")
string
(string-append string space))
string))