Mercurial > emacs
comparison src/lread.c @ 63699:4089414d3208
(read_vector): Follow error conventions.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 23 Jun 2005 16:10:06 +0000 |
| parents | f1b7fe92d96a |
| children | 36bd1972ba30 d07fdd5d7d4e b7da78284d4c |
comparison
equal
deleted
inserted
replaced
| 63698:e7e58f0947fe | 63699:4089414d3208 |
|---|---|
| 2843 if (bytecodeflag && load_force_doc_strings) | 2843 if (bytecodeflag && load_force_doc_strings) |
| 2844 { | 2844 { |
| 2845 if (i == COMPILED_BYTECODE) | 2845 if (i == COMPILED_BYTECODE) |
| 2846 { | 2846 { |
| 2847 if (!STRINGP (item)) | 2847 if (!STRINGP (item)) |
| 2848 error ("invalid byte code"); | 2848 error ("Invalid byte code"); |
| 2849 | 2849 |
| 2850 /* Delay handling the bytecode slot until we know whether | 2850 /* Delay handling the bytecode slot until we know whether |
| 2851 it is lazily-loaded (we can tell by whether the | 2851 it is lazily-loaded (we can tell by whether the |
| 2852 constants slot is nil). */ | 2852 constants slot is nil). */ |
| 2853 ptr[COMPILED_CONSTANTS] = item; | 2853 ptr[COMPILED_CONSTANTS] = item; |
| 2865 STRING_SET_CHARS (bytestr, SBYTES (bytestr)); | 2865 STRING_SET_CHARS (bytestr, SBYTES (bytestr)); |
| 2866 STRING_SET_UNIBYTE (bytestr); | 2866 STRING_SET_UNIBYTE (bytestr); |
| 2867 | 2867 |
| 2868 item = Fread (bytestr); | 2868 item = Fread (bytestr); |
| 2869 if (!CONSP (item)) | 2869 if (!CONSP (item)) |
| 2870 error ("invalid byte code"); | 2870 error ("Invalid byte code"); |
| 2871 | 2871 |
| 2872 otem = XCONS (item); | 2872 otem = XCONS (item); |
| 2873 bytestr = XCAR (item); | 2873 bytestr = XCAR (item); |
| 2874 item = XCDR (item); | 2874 item = XCDR (item); |
| 2875 free_cons (otem); | 2875 free_cons (otem); |