replaced quasiquote_test to Scheme