diff --git a/atomics.sld b/atomics.sld index f26b74fe..573cf896 100644 --- a/atomics.sld +++ b/atomics.sld @@ -1,15 +1,15 @@ (define-library (atomics) (export - atomic:get-fx - atomic:fx++ + atomic:get + atomic:set! ) (include-c-header "") (begin - ;TODO: needed, unfortunately (define tmp 1) - (define-c atomic:fx++ - "(void *data, int argc, closure _, object k, object num)" - " Cyc_check_fixnum(data, num); - ck_pr_add_ptr(&num, 2); - return_closcall1(data, k, num); ") + ;TODO: won't work, ints are immutable + ;(define-c atomic:fx++ + ; "(void *data, int argc, closure _, object k, object num)" + ; " Cyc_check_fixnum(data, num); + ; ck_pr_add_ptr(&num, 2); + ; return_closcall1(data, k, num); ") ))