altos/scheme: Add a bunch of string and vector builtins

[fw/altos] / src / scheme / ao_scheme_builtin.txt

diff --git a/src/scheme/ao_scheme_builtin.txt b/src/scheme/ao_scheme_builtin.txt
index e7b3d75cdb8fe97bf751c325ef760e4fce275055..b7261ce14359f5e2720375956ba58244c15def56 100644 (file)
--- a/src/scheme/ao_scheme_builtin.txt
+++ b/src/scheme/ao_scheme_builtin.txt
@@ -20,7 +20,7 @@ nlambda               begin
 nlambda                while
 f_lambda       write
 f_lambda       display
-f_lambda       plus            +
+f_lambda       plus            +       string-append
 f_lambda       minus           -
 f_lambda       times           *
 f_lambda       divide          /
@@ -28,12 +28,10 @@ f_lambda    modulo          modulo  %
 f_lambda       remainder
 f_lambda       quotient
 f_lambda       equal           =       eq?     eqv?
-f_lambda       less            <
-f_lambda       greater         >
-f_lambda       less_equal      <=
-f_lambda       greater_equal   >=
-f_lambda       list_to_string          list->string
-f_lambda       string_to_list          string->list
+f_lambda       less            <       string<?
+f_lambda       greater         >       string>?
+f_lambda       less_equal      <=      string<=?
+f_lambda       greater_equal   >=      string>=?
 f_lambda       flush_output            flush-output
 f_lambda       delay
 f_lambda       led
@@ -51,9 +49,15 @@ f_lambda     booleanp        boolean?
 f_lambda       set_car         set-car!
 f_lambda       set_cdr         set-cdr!
 f_lambda       symbolp         symbol?
+f_lambda       list_to_string          list->string
+f_lambda       string_to_list          string->list
 f_lambda       symbol_to_string        symbol->string
 f_lambda       string_to_symbol        string->symbol
 f_lambda       stringp         string?
+f_lambda       string_ref      string-ref
+f_lambda       string_set      string-set!
+f_lambda       string_copy     string-copy
+f_lambda       string_length   string-length
 f_lambda       procedurep      procedure?
 lambda         apply
 f_lambda       read_char       read-char
@@ -69,6 +73,7 @@ f_lambda      sqrt
 f_lambda       vector_ref      vector-ref
 f_lambda       vector_set      vector-set!
 f_lambda       vector
+f_lambda       make_vector     make-vector
 f_lambda       list_to_vector  list->vector
 f_lambda       vector_to_list  vector->list
 f_lambda       vector_length   vector-length