X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_builtin.txt;h=17f5ea0c275e770b78cdb7bccb6c09e1776a8a9e;hb=8d65e7b367712075a42d26c6d4bbff474dc1ae14;hp=e7b3d75cdb8fe97bf751c325ef760e4fce275055;hpb=d1d98e408311c5ba18138a18f4c88448e4254626;p=fw%2Faltos diff --git a/src/scheme/ao_scheme_builtin.txt b/src/scheme/ao_scheme_builtin.txt index e7b3d75c..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 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 @@ -69,6 +74,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