Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +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)) {
FILE *fp = ((port_type *) port)->fp;
if (fp){
char_type unbox = obj_obj2char(c);
char unbox = (char) obj_obj2char(c);
fprintf(fp, "%c", unbox);
}
} else {

2
scheme/base.sld
View file

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