X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_builtin.txt;h=17f5ea0c275e770b78cdb7bccb6c09e1776a8a9e;hb=40236913922e0395780cd7d90354546ecaf279f9;hp=cb65e252ce27030b4d973943664185d0121ecbe9;hpb=195cbeec19a6a44f309a9040d727d37fe4e2ec97;p=fw%2Faltos

diff --git a/src/scheme/ao_scheme_builtin.txt b/src/scheme/ao_scheme_builtin.txt
index cb65e252..17f5ea0c 100644
--- a/src/scheme/ao_scheme_builtin.txt
+++ b/src/scheme/ao_scheme_builtin.txt
@@ -8,6 +8,7 @@ f_lambda	cdr
 f_lambda	cons
 f_lambda	last
 f_lambda	length
+f_lambda	list_copy	list-copy
 nlambda		quote
 atom		quasiquote
 atom		unquote
@@ -20,7 +21,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 +29,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 +50,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
@@ -66,3 +71,11 @@ f_lambda	finitep		finite?
 f_lambda	infinitep	infinite?
 f_lambda	inexactp	inexact?
 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
+f_lambda	vectorp		vector?