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

Switched order of parameters in Cyc_string_append

Browse source
This commit is contained in:
Justin Ethier 2015-10-13 21:50:06 -04:00
parent 94366294da
commit c332e84eac
3 changed files with 2 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
include/cyclone/runtime.h
View file

@ -126,7 +126,7 @@ object Cyc_string2symbol(object str);
object Cyc_list2string(object cont, object lst); object Cyc_list2string(object cont, object lst);
common_type Cyc_string2number(object str); common_type Cyc_string2number(object str);
void dispatch_string_91append(int argc, object clo, object cont, object str1, ...); void dispatch_string_91append(int argc, object clo, object cont, object str1, ...);
object Cyc_string_append(int argc, object cont, object str1, ...); object Cyc_string_append(object cont, int argc, object str1, ...);
integer_type Cyc_string_length(object str); integer_type Cyc_string_length(object str);
object Cyc_substring(object cont, object str, object start, object end); object Cyc_substring(object cont, object str, object start, object end);
object Cyc_string_ref(object str, object k); object Cyc_string_ref(object str, object k);

2
runtime.c
View file

@ -966,7 +966,7 @@ void dispatch_string_91append(int _argc, object clo, object cont, object str1, .
Cyc_string_append_va_list(_argc - 1); Cyc_string_append_va_list(_argc - 1);
} }
object Cyc_string_append(int _argc, object cont, object str1, ...) { object Cyc_string_append(object cont, int _argc, object str1, ...) {
string_type result; string_type result;
va_list ap; va_list ap;
va_start(ap, str1); va_start(ap, str1);

7
scheme/cyclone/cgen.sld
View file

@ -610,13 +610,6 @@
Cyc-read-line Cyc-read-line
cons length vector-length cell)))) cons length vector-length cell))))
TODO: how to fix this up to generate argc after cont?
or alternatively, maybe we say screw it and just reverse the order of
args in the runtime function... but that's not ideal since we do it differently
everywhere else. will it cause problems to have a special case?????
object c_732612 = Cyc_string_append((closure)&c_732599, 2,&c_732613, r_73276);
return_closcall1((closure)&c_732599, c_732612);;
;; Pass continuation as the function's first parameter? ;; Pass continuation as the function's first parameter?
(define (prim:cont? exp) (define (prim:cont? exp)
(and (prim? exp) (and (prim? exp)