diff --git a/include/xo/numeric/numeric_register_primitives.hpp b/include/xo/numeric/numeric_register_primitives.hpp index c4b0bd7b..5c68a51d 100644 --- a/include/xo/numeric/numeric_register_primitives.hpp +++ b/include/xo/numeric/numeric_register_primitives.hpp @@ -11,8 +11,9 @@ namespace xo { namespace scm { /** Register primitive factories with primitive registry **/ - bool numeric_register_primitives(obj mm, - StringTable * stbl, + bool numeric_register_primitives(obj rcx, + //obj mm, + //StringTable * stbl, InstallSink sink, InstallFlags flags); } diff --git a/src/numeric/numeric_register_primitives.cpp b/src/numeric/numeric_register_primitives.cpp index 6150df9f..08cb0fc9 100644 --- a/src/numeric/numeric_register_primitives.cpp +++ b/src/numeric/numeric_register_primitives.cpp @@ -51,10 +51,12 @@ namespace xo { } bool - numeric_register_primitives(obj mm, StringTable * stbl, + numeric_register_primitives(obj rcx, + //obj mm, StringTable * stbl, InstallSink sink, InstallFlags flags) { - (void)stbl; + obj mm = rcx.allocator(); + StringTable * stbl = rcx.stringtable(); scope log(XO_DEBUG(true));