改日用第二类安全宏来实现。
(require compatibility/defmacro)
(define-macro (string->procedure str)
`,(string->symbol str))
((string->procedure "display") "abc")
((string->procedure "+") 1 2 3)
(define (square n)
(* n n))
((string->procedure "square") 10)