Mercurial > hg > xemacs-beta

comparison src/data.c @ 5510:6b3caa55668c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove the LOSING_BYTECODE compile-time option, it's been off since 1997. 2011-05-20 Aidan Kehoe <kehoea@parhasard.net> * config.h.in: * data.c (Faref): * fns.c (check_losing_bytecode): * fns.c (concat): * fns.c (Felt): Remove the LOSING_BYTECODE compile-time option entirely. It allowed access to the elements of a compiled function using #'aref, and has been turned off since 1997.
author Aidan Kehoe <kehoea@parhasard.net>
date Fri, 20 May 2011 12:16:42 +0100
parents 4dee0387b9de
children 56144c8593a8
comparison
equal deleted inserted replaced
5509:9ac0016d8fe8 5510:6b3caa55668c
751 else if (STRINGP (array)) 751 else if (STRINGP (array))
752 { 752 {
753 if (idx >= string_char_length (array)) goto range_error; 753 if (idx >= string_char_length (array)) goto range_error;
754 return make_char (string_ichar (array, idx)); 754 return make_char (string_ichar (array, idx));
755 } 755 }
756 #ifdef LOSING_BYTECODE
757 else if (COMPILED_FUNCTIONP (array))
758 {
759 /* Weird, gross compatibility kludge */
760 return Felt (array, index_);
761 }
762 #endif
763 else 756 else
764 { 757 {
765 check_losing_bytecode ("aref", array); 758 check_losing_bytecode ("aref", array);
766 array = wrong_type_argument (Qarrayp, array); 759 array = wrong_type_argument (Qarrayp, array);
767 goto retry; 760 goto retry;