Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 09:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-03-02 20:31:29 -05:00
parent 28aa84c52d
commit 69468b1480
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
atomics.sld
View file

@ -1,15 +1,15 @@
(define-library (atomics) (define-library (atomics)
(export (export
atomic:get-fx atomic:get
atomic:fx++ atomic:set!
) )
(include-c-header "<ck_pr.h>") (include-c-header "<ck_pr.h>")
(begin (begin
;TODO: needed, unfortunately (define tmp 1) ;TODO: won't work, ints are immutable
(define-c atomic:fx++ ;(define-c atomic:fx++
"(void *data, int argc, closure _, object k, object num)" ; "(void *data, int argc, closure _, object k, object num)"
" Cyc_check_fixnum(data, num); ; " Cyc_check_fixnum(data, num);
ck_pr_add_ptr(&num, 2); ; ck_pr_add_ptr(&num, 2);
return_closcall1(data, k, num); ") ; return_closcall1(data, k, num); ")
)) ))