顺手编译RScheme成lib，可以跑android、ios、win、mac、linux上。

现在玩lisp app。需要生成一个packages 给ios用，

(define (read)
    (let (( pnum (read-op)))
        (if (number? (string->number pnum))
            (string->number pnum)
            pnum)))

(define-ios-glue (read-op)
{
    REG0=make_string(show_input());
    RETURN1();
})

(define-ios-glue (alert title message)
{
    alert(string_text(title),string_text(message));
    RETURN0();
})

然后在ios里面使用，结果如下：