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

Protect against cast warning

Browse source
This commit is contained in:
Justin Ethier 2016-02-17 23:19:06 -05:00
parent e9fef4133a
commit 64d86bd1e2
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/base.sld
View file

@ -1026,7 +1026,7 @@
return_closcall1( return_closcall1(
data, data,
k, k,
(p->mode == 1) ? boolean_t : boolean_f); ") ((p->mode == 1) ? boolean_t : boolean_f)); ")
(define-c output-port? (define-c output-port?
"(void *data, int argc, closure _, object k, object port)" "(void *data, int argc, closure _, object k, object port)"
" port_type *p = (port_type *)port; " port_type *p = (port_type *)port;
@ -1034,7 +1034,7 @@
return_closcall1( return_closcall1(
data, data,
k, k,
(p->mode == 0) ? boolean_t : boolean_f); ") ((p->mode == 0) ? boolean_t : boolean_f)); ")
(define-c input-port-open? (define-c input-port-open?
"(void *data, int argc, closure _, object k, object port)" "(void *data, int argc, closure _, object k, object port)"
" port_type *p = (port_type *)port; " port_type *p = (port_type *)port;
@ -1042,7 +1042,7 @@
return_closcall1( return_closcall1(
data, data,
k, k,
(p->mode == 1 && p->fp != NULL) ? boolean_t : boolean_f); ") ((p->mode == 1 && p->fp != NULL) ? boolean_t : boolean_f)); ")
(define-c output-port-open? (define-c output-port-open?
"(void *data, int argc, closure _, object k, object port)" "(void *data, int argc, closure _, object k, object port)"
" port_type *p = (port_type *)port; " port_type *p = (port_type *)port;
@ -1050,7 +1050,7 @@
return_closcall1( return_closcall1(
data, data,
k, k,
(p->mode == 0 && p->fp != NULL) ? boolean_t : boolean_f); ") ((p->mode == 0 && p->fp != NULL) ? boolean_t : boolean_f)); ")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; syntax-rules ;; syntax-rules
(define identifier? symbol?) (define identifier? symbol?)