diff options
| author | Keith Packard <keithp@keithp.com> | 2018-01-06 17:29:10 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2018-01-06 17:31:43 -0800 |
| commit | 16061947d4376b41e596d87f97ec53ec29d17644 (patch) | |
| tree | f7ad08f8810b0ea78cf282048eacb46d441a2ee1 /src/scheme/ao_scheme_string.scheme | |
| parent | 39df849f0717d92a7d5bdf8aa5904bd4db1b467f (diff) | |
altos/scheme: Add ports. Split scheme code up.
And lots of other changes, including freeing unreferenced atoms.
Signed-off-by: Keith Packard <keithp@keithp.com>
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 |