Rewrite C-constructs not supported by M2-Planet VALUE (CAR (foo)) -> SCM a = CAR (foo); VALUE (a) TYPE (CAR (foo)) -> SCM t = CAR (foo); TYPE (a) * src/builtins.c (builtin_function): Use VALUE indirections. (builtin_printer): Likewise. * src/eval-apply.c (apply_builtin): Likewise. (get_macro): Likewise. (expand_variable_): Likewise. (eval_apply): Likewise. * src/hash.c (hashq_get_handle): Likewise. (hashq_ref): Likewise. (hash_ref): Likewise. (hash_set_x): Likewise. (hash_table_printer): Likewise. * src/math.c (greater_p): Likewise. (less_p): Likewise. (is_p): Likewise. (minus): Likewise. (plus): Likewise. (divide): Likewise. (multiply): Likewise. (logand): Likewise. (logior): Likewise. (logxor): Likewise. * src/posix.c (current_input_port): Likewise. (set_current_output_port): Likewise. * src/reader.c (reader_read_list): Likewise. (reader_read_character): Likewise. (reader_read_string): Likewise. * src/string.c (list_to_cstring): Likewise. (read_string): Likewise. |
||
---|---|---|
.. | ||
builtins.h | ||
cc.h | ||
constants.h | ||
lib-mini.h | ||
lib.h | ||
m2.h | ||
macros.h | ||
mes.h | ||
symbols.h |