Higepon Taro Minowa

### M17 Start working on R7RS. `cargo run ../tests/r7rs/import-all.scm `

call/cc worked. ``` (import (rnrs)) (display (call/cc (lambda (c) (c 3)))) (newline) ```

Anyone interested in writing R7RS procedures in Rust? I'm now trying to run all tests in ../tests/r7rs/r7rs-tests.scm. We have to implement ~400 procedures in https://github.com/higepon/mosh/blob/bigint/rmosh/src/procs.rs. For example I recently implemented...

Haha thanks. If you take a closer look. rmosh is just a copy of Mosh. - VM instructions - Compiler - object system are the same. Anyway ping me when...

```sh mosh_comp /tmp/larcenous/Mosh/destruc.scm /tmp/larcenous/Mosh/destruc.scm Running... Running destruc:600:50:4000 Elapsed time: 0.000000039448843999999995 seconds (39.449) for destruc:600:50:4000 +!CSVLINE!+mosh,destruc:600:50:4000,0.000000039448843999999995 time% msec calls name location 76 3900 4000 (destructive n m) :49 18 940 3440000...

```sh mosh_comp /tmp/larcenous/Mosh/diviter.scm /tmp/larcenous/Mosh/diviter.scm Running... Running diviter:1000:1000000 Elapsed time: 0.000000021684684999999997 seconds (21.685) for diviter:1000:1000000 +!CSVLINE!+mosh,diviter:1000:1000000,0.000000021684684999999997 time% msec calls name location 99 20830 1000000 (iterative-div2 l) :17 0 80 1 (run-r7rs-benchmark...

```sh mosh_comp /tmp/larcenous/Mosh/divrec.scm /tmp/larcenous/Mosh/divrec.scm Running... Running divrec:1000:1000000 Elapsed time: 0.000000027718922 seconds (27.719) for divrec:1000:1000000 +!CSVLINE!+mosh,divrec:1000:1000000,0.000000027718922 time% msec calls name location 33 10 657 file-exists? 33 10 1 (lambda () ...)...

```sh Elapsed time: 0.00000003123285 seconds (31.233) for triangl:22:1:50 +!CSVLINE!+mosh,triangl:22:1:50,0.00000003123285 time% msec calls name location 83 520 290128600 (attempt i depth) :52 6 40 38750 (vector->list G1f15) 5 30 38750 (vector->list-partial...

```sh mosh_comp /tmp/larcenous/Mosh/mbrotZ.scm /tmp/larcenous/Mosh/mbrotZ.scm Running... Running mbrotZ:75:1000 Elapsed time: 0.00000015549196499999998 seconds (155.492) for mbrotZ:75:1000 +!CSVLINE!+mosh,mbrotZ:75:1000,0.00000015549196499999998 time% msec calls name location 97 111700 5625000 (count z0 step z) :28 1 1390...

```sh mosh_comp /tmp/larcenous/Mosh/nucleic.scm /tmp/larcenous/Mosh/nucleic.scm Running... Running nucleic:50 Elapsed time: 0.000000070176318 seconds (70.176) for nucleic:50 +!CSVLINE!+mosh,nucleic:50,0.000000070176318 time% msec calls name location 19 8710 6636900 (tfo-apply tfo p) :153 16 7380 502300...