From 64d86bd1e296dcfdfddc4cb4cba3013fa691093c Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 17 Feb 2016 23:19:06 -0500 Subject: [PATCH] Protect against cast warning --- scheme/base.sld | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/scheme/base.sld b/scheme/base.sld index d2798520..cbdbe8e7 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -1026,7 +1026,7 @@ return_closcall1( data, k, - (p->mode == 1) ? boolean_t : boolean_f); ") + ((p->mode == 1) ? boolean_t : boolean_f)); ") (define-c output-port? "(void *data, int argc, closure _, object k, object port)" " port_type *p = (port_type *)port; @@ -1034,7 +1034,7 @@ return_closcall1( data, k, - (p->mode == 0) ? boolean_t : boolean_f); ") + ((p->mode == 0) ? boolean_t : boolean_f)); ") (define-c input-port-open? "(void *data, int argc, closure _, object k, object port)" " port_type *p = (port_type *)port; @@ -1042,7 +1042,7 @@ return_closcall1( data, 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? "(void *data, int argc, closure _, object k, object port)" " port_type *p = (port_type *)port; @@ -1050,7 +1050,7 @@ return_closcall1( data, k, - (p->mode == 0 && p->fp != NULL) ? boolean_t : boolean_f); ") + ((p->mode == 0 && p->fp != NULL) ? boolean_t : boolean_f)); ") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; syntax-rules (define identifier? symbol?)