diff options
Diffstat (limited to 'src/scheme/ao_scheme_string.scheme')
| -rw-r--r-- | src/scheme/ao_scheme_string.scheme | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/scheme/ao_scheme_string.scheme b/src/scheme/ao_scheme_string.scheme index 10e6fa4f..feeca37b 100644 --- a/src/scheme/ao_scheme_string.scheme +++ b/src/scheme/ao_scheme_string.scheme @@ -13,6 +13,10 @@ ; ; string functions placed in ROM +(define string (lambda chars (list->string chars))) + +(_??_ (string #\a #\b #\c) "abc") + (define string-map (lambda (proc . strings) ; result length is min of arg lengths |