mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-24 04:25:06 +02:00
15 lines
368 B
Scheme
15 lines
368 B
Scheme
(define-library (atomics)
|
|
(export
|
|
atomic:get
|
|
atomic:set!
|
|
)
|
|
(include-c-header "<ck_pr.h>")
|
|
(begin
|
|
;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); ")
|
|
))
|
|
|