diff --git a/TODO b/TODO index 25235323..6136b57c 100644 --- a/TODO +++ b/TODO @@ -11,6 +11,7 @@ at this point, cyclone crashes when compiling the test suite. I think there may Roadmap: + - Make it easier to work with multiple copies of cyclone. for example, maybe an env variable could be used to point a local copy of cyclone to the current directory for resources, instead of /usr/local/ - Add macro support, ideally including some level of hygiene - Code cleanup - need to take care of accumulated cruft before release. also, can we profile to make things any faster? - Target r7rs support (coordinate with feature list) diff --git a/include/cyclone/runtime.h b/include/cyclone/runtime.h index 10291097..78b2d12c 100644 --- a/include/cyclone/runtime.h +++ b/include/cyclone/runtime.h @@ -126,7 +126,7 @@ object Cyc_string2symbol(object str); object Cyc_list2string(object cont, object lst); common_type Cyc_string2number(object str); 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); object Cyc_substring(object cont, object str, object start, object end); object Cyc_string_ref(object str, object k); diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld index c8a79ee4..b1d7be0d 100644 --- a/scheme/cyclone/cgen.sld +++ b/scheme/cyclone/cgen.sld @@ -610,13 +610,6 @@ Cyc-read-line 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? (define (prim:cont? exp) (and (prim? exp)