… | |
… | |
4948 | |
4948 | |
4949 | case TOK_DOTATOM: |
4949 | case TOK_DOTATOM: |
4950 | SCHEME_V->strbuff[0] = '.'; |
4950 | SCHEME_V->strbuff[0] = '.'; |
4951 | s_return (mk_atom (SCHEME_A_ readstr_upto (SCHEME_A_ 1, DELIMITERS))); |
4951 | s_return (mk_atom (SCHEME_A_ readstr_upto (SCHEME_A_ 1, DELIMITERS))); |
4952 | |
4952 | |
|
|
4953 | case TOK_STRATOM: |
|
|
4954 | x = readstrexp (SCHEME_A_ '|'); |
|
|
4955 | //TODO: haven't checked whether the garbage collector could interfere |
|
|
4956 | s_return (mk_atom (SCHEME_A_ strvalue (x))); |
|
|
4957 | |
4953 | case TOK_DQUOTE: |
4958 | case TOK_DQUOTE: |
4954 | x = readstrexp (SCHEME_A_ '"'); |
4959 | x = readstrexp (SCHEME_A_ '"'); |
4955 | |
4960 | |
4956 | if (x == S_F) |
4961 | if (x == S_F) |
4957 | Error_0 ("Error reading string"); |
4962 | Error_0 ("Error reading string"); |