diff --git a/scheme/inexact.sld b/scheme/inexact.sld index 200227e6..1fbf1717 100644 --- a/scheme/inexact.sld +++ b/scheme/inexact.sld @@ -68,7 +68,14 @@ (/ (c-log z1) (c-log z2*))))) (define-c c-log "(void *data, int argc, closure _, object k, object z)" - " return_inexact_double_op(data, k, log, z);") + " return_inexact_double_op(data, k, log, z);" +; TODO: experimenting with how an inline definition might look. +; need something that can both work within the same module and +; also when imported into another module. +; inline: +; "(void *data, object ptr, object z)" +; " return_inexact_double_op(data, k, log, z);" + ) (define-c sin "(void *data, int argc, closure _, object k, object z)" " return_inexact_double_op(data, k, sin, z);")