From 16061947d4376b41e596d87f97ec53ec29d17644 Mon Sep 17 00:00:00 2001
From: Keith Packard <keithp@keithp.com>
Date: Sat, 6 Jan 2018 17:29:10 -0800
Subject: 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>
---
 src/scheme/ao_scheme_string.scheme | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/scheme/ao_scheme_string.scheme')

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
-- 
cgit v1.2.3