altos/scheme: Add ports. Split scheme code up.

[fw/altos] / src / scheme / ao_scheme_string.scheme

diff --git a/src/scheme/ao_scheme_string.scheme b/src/scheme/ao_scheme_string.scheme
index 10e6fa4f03833d2f4da75ff5d1818ce8391bcfed..feeca37ba874f1908d2a22153e8b803ac6b8440d 100644 (file)
--- 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