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

WIP

Browse source
This commit is contained in:
Justin Ethier 2018-10-02 18:46:47 -04:00
parent ba994b9d36
commit 2aaeababb9
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
tests/experimental/fac-test.scm
View file

@ -10,7 +10,21 @@
(define (fac n) (if (= n 0) 1 (* n (fac (- n 1))))) (define (fac n) (if (= n 0) 1 (* n (fac (- n 1)))))
(write (fac 10)) (write (fac 10))
#| #| Next-gen runtime:
static void __host_lambda_1(void *data, int pc, TBD) { // rest of args TBD, maybe a C array, length, what else?
switch(pc) {
3: { // Lambda ID 3
// TODO
break;
}
default:
// raise error
}
}
|#
#| Currently-generated code:
static void __lambda_3(void *data, int argc, object self_7312, object r_7310) ; static void __lambda_3(void *data, int argc, object self_7312, object r_7310) ;
static void __lambda_1(void *data, int argc, closure _,object k_735, object n_731_732) ; static void __lambda_1(void *data, int argc, closure _,object k_735, object n_731_732) ;
static void __lambda_2(void *data, int argc, object self_7311, object r_737) ; static void __lambda_2(void *data, int argc, object self_7311, object r_737) ;