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

WIP

Browse source
This commit is contained in:
Justin Ethier 2016-09-22 18:50:27 -04:00
parent 423861c85d
commit 765d2fb663
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
srfi/106.sld
View file

@ -27,6 +27,8 @@
*shut-rd* *shut-wr* *shut-rdwr*
)
(begin
;; TODO: identifier for socket in vector
;; see: http://gnosis.cx/publish/programming/sockets.html
(define-c %make-client-socket
"(void *data, int argc, closure _, object k,
@ -57,7 +59,7 @@
sizeof(addr)) < 0) {
Cyc_rt_raise_msg(data, \"Failed to connect with server\");
}
// TODO: pack socket, and pass that to k:
// TODO: pack socket, and pass that to k. check code in Cyc_make_vector
return_closcall1(data, k, obj_int2obj()); ")
(define-syntax make-const