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

Avoid warning from C compiler

Browse source
This commit is contained in:
Justin Ethier 2021-03-18 13:22:44 -04:00
parent 220a95e4d5
commit dcf51c86a6
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scheme/read.sld
View file

@ -116,8 +116,11 @@
" Cyc_io_read_token(data, k, port);") " Cyc_io_read_token(data, k, port);")
(define-c read-error (define-c read-error
"(void *data, int argc, closure _, object k, object port, object filename, object msg)" "(void *data, object _, int argc, object *args)"
" char buf[1024]; " object port = args[1];
object filename = args[2];
object msg = args[3];
char buf[1024];
port_type *p; port_type *p;
Cyc_check_port(data, port); Cyc_check_port(data, port);
Cyc_check_str(data, msg); Cyc_check_str(data, msg);