projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
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 /
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 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
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 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 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
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 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 list_to_vector list->vector
f_lambda vector_to_list vector->list
f_lambda vector_length vector-length