mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-31 07:55:06 +02:00
15 lines
372 B
Scheme
15 lines
372 B
Scheme
(define-library (atomics)
|
|
(export
|
|
atomic:get-fx
|
|
atomic:fx++
|
|
)
|
|
(include-c-header "<ck_pr.h>")
|
|
(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); ")
|
|
))
|
|
|