12-string.scm (436B)
1 ;; String core: string-length string-ref substring string-append 2 ;; string->symbol symbol->string and equal? on strings. 3 (if (= (string-length "abcd") 4) 4 (if (= (string-ref "abcd" 2) 99) 5 (if (equal? (substring "abcdef" 1 4) "bcd") 6 (if (equal? (string-append "ab" "cd" "") "abcd") 7 (if (eq? (string->symbol "foo") (quote foo)) 8 (if (equal? (symbol->string (quote bar)) "bar") 9 42 0) 0) 0) 0) 0) 0)