Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Bug fixes

Browse source
This commit is contained in:
Justin Ethier 2017-12-18 23:56:07 +00:00
parent 14ead0a368
commit cf4877acd7
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
runtime.c
View file

@ -1119,7 +1119,7 @@ object Cyc_write_u8(void *data, object c, object port)
if (obj_is_char(c)) { if (obj_is_char(c)) {
FILE *fp = ((port_type *) port)->fp; FILE *fp = ((port_type *) port)->fp;
if (fp){ if (fp){
char_type unbox = obj_obj2char(c); char unbox = (char) obj_obj2char(c);
fprintf(fp, "%c", unbox); fprintf(fp, "%c", unbox);
} }
} else { } else {

2
scheme/base.sld
View file

@ -645,7 +645,7 @@
(_peek-u8 (car port)))) (_peek-u8 (car port))))
(define (write-u8 chr . port) (define (write-u8 chr . port)
(if (null? port) (if (null? port)
(_write-u8 chr (current-input-port)) (_write-u8 chr (current-output-port))
(_write-u8 chr (car port)))) (_write-u8 chr (car port))))
(define (peek-char . port) (define (peek-char . port)
(if (null? port) (if (null? port)