(begin ;;; number->string ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (assert-equal "123" (number->string 123)) ;(assert-equal "-123" (number->string -123)) (assert-equal "1e240" (number->string 123456 16)) ;;; string->symbol ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;(assert-equal '|| (string->symbol "")) ;(assert-equal '| | (string->symbol " ")) (assert-equal 'foo (string->symbol "foo")) ;;; symbol->string ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (assert-equal "foo" (symbol->string 'foo)) )