Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
7f358972
Commit
7f358972
authored
Dec 30, 1994
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Faref): Handle compiled function as pseudovector.
parent
08623493
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
3 deletions
+9
-3
src/data.c
src/data.c
+9
-3
No files found.
src/data.c
View file @
7f358972
...
...
@@ -1350,9 +1350,15 @@ ARRAY may be a vector or a string, or a byte-code object. INDEX starts at 0.")
}
else
{
if
(
!
VECTORP
(
array
)
&&
!
COMPILEDP
(
array
))
array
=
wrong_type_argument
(
Qarrayp
,
array
);
if
(
idxval
<
0
||
idxval
>=
XVECTOR
(
array
)
->
size
)
int
size
;
if
(
VECTORP
(
array
))
size
=
XVECTOR
(
array
)
->
size
;
else
if
(
COMPILEDP
(
array
))
size
=
XVECTOR
(
array
)
->
size
&
PSEUDOVECTOR_SIZE_MASK
;
else
wrong_type_argument
(
Qarrayp
,
array
);
if
(
idxval
<
0
||
idxval
>=
size
)
args_out_of_range
(
array
,
idx
);
return
XVECTOR
(
array
)
->
contents
[
idxval
];
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment