X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_builtin.txt;h=b7261ce14359f5e2720375956ba58244c15def56;hb=7e14e243565e814ddd524c8d09454719dc89c6d8;hp=e7b3d75cdb8fe97bf751c325ef760e4fce275055;hpb=6d14f809b54b99725447a934047167c2e7febe82;p=fw%2Faltos

diff --git a/src/scheme/ao_scheme_builtin.txt b/src/scheme/ao_scheme_builtin.txt
index e7b3d75c..b7261ce1 100644
--- 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