| 674 | } |
| 675 | |
| 676 | pointer SchemeFFI::cptrToString(scheme* _sc, pointer args) |
| 677 | { |
| 678 | char* cptr = (char*) cptr_value(pair_car(args)); |
| 679 | char* cstr = (char*) cptr; |
| 680 | return mk_string(_sc, cstr); |
| 681 | } |
| 682 | |
| 683 | pointer SchemeFFI::stringToCptr(scheme* _sc, pointer args) |
| 684 | { |
nothing calls this directly
no test coverage detected