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

Final fixes for eval write/display

Browse source
This commit is contained in:
Justin Ethier 2015-06-09 22:12:49 -04:00
parent daa989da10
commit bf3ba902aa
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
runtime.c
View file

@ -298,7 +298,7 @@ object dispatch_display_va(int argc, object clo, object cont, object x, ...) {
va_start(ap, x); va_start(ap, x);
result = Cyc_display_va_list(argc - 1, x, ap); result = Cyc_display_va_list(argc - 1, x, ap);
va_end(ap); va_end(ap);
return_funcall1(cont, &result); return_funcall1(cont, result);
} }
object Cyc_display_va(int argc, object x, ...) { object Cyc_display_va(int argc, object x, ...) {
@ -411,7 +411,7 @@ object dispatch_write_va(int argc, object clo, object cont, object x, ...) {
va_start(ap, x); va_start(ap, x);
result = Cyc_write_va_list(argc - 1, x, ap); result = Cyc_write_va_list(argc - 1, x, ap);
va_end(ap); va_end(ap);
return_funcall1(cont, &result); return_funcall1(cont, result);
} }
object Cyc_write_va(int argc, object x, ...) { object Cyc_write_va(int argc, object x, ...) {

6
test.scm
View file

@ -20,7 +20,7 @@
(define b (vector 10 20 30 40 50)) (define b (vector 10 20 30 40 50))
(vector-copy! b 1 a 0 2) (vector-copy! b 1 a 0 2)
(write (equal? b #(10 1 2 40 50))) (write (equal? b #(10 1 2 40 50)))
(call-with-values ;(call-with-values
(lambda () (values 1 1)) ; (lambda () (values 1 1))
(lambda (a) (write a))) ; (lambda (a) (write a)))