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* *shut-rd* *shut-wr* *shut-rdwr*
) )
(begin (begin
;; TODO: identifier for socket in vector
;; see: http://gnosis.cx/publish/programming/sockets.html ;; see: http://gnosis.cx/publish/programming/sockets.html
(define-c %make-client-socket (define-c %make-client-socket
"(void *data, int argc, closure _, object k, "(void *data, int argc, closure _, object k,
@ -57,7 +59,7 @@
sizeof(addr)) < 0) { sizeof(addr)) < 0) {
Cyc_rt_raise_msg(data, \"Failed to connect with server\"); 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()); ") return_closcall1(data, k, obj_int2obj()); ")
(define-syntax make-const (define-syntax make-const