diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2012-03-20 20:59:12 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2012-03-20 20:59:12 -0700 |
| commit | fe69004a3798e896cf7349149c6c37ec58676b45 (patch) | |
| tree | 4c4e933826096a497cf92b06791779f7a213a149 /eval.c | |
| parent | 270dcc27814f4bd80f625b85e9ff91e7c5a8e8a8 (diff) | |
| download | txr-fe69004a3798e896cf7349149c6c37ec58676b45.tar.gz txr-fe69004a3798e896cf7349149c6c37ec58676b45.tar.bz2 txr-fe69004a3798e896cf7349149c6c37ec58676b45.zip | |
* arith.c (flo_int): New function.
* eval.c (eval_init): flo-int registered as intrinsic.
* lib.h (flo_int): Declared.
* mpi-patches/series: Added mpi-to-double to patch stack.
(mp_to_double): New MPI function.
* mpi-patches/mpi-to-double: New file.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -2292,6 +2292,7 @@ void eval_init(void) reg_fun(intern(lit("int-str"), user_package), func_n2o(int_str, 1)); reg_fun(intern(lit("flo-str"), user_package), func_n1(flo_str)); reg_fun(intern(lit("int-flo"), user_package), func_n1(int_flo)); + reg_fun(intern(lit("flo-int"), user_package), func_n1(flo_int)); reg_fun(intern(lit("chrp"), user_package), func_n1(chrp)); reg_fun(intern(lit("chr-isalnum"), user_package), func_n1(chr_isalnum)); reg_fun(intern(lit("chr-isalpha"), user_package), func_n1(chr_isalpha)); |