mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 12:10:26 +02:00
Code Activity

* vectors.c (scm_vector_set_x): Return SCM_UNSPECIFIED (as

Browse source 
specified by R5RS).
This commit is contained in:
Mikael Djurfeldt 2000-04-15 22:24:14 +00:00
parent 7c1e0b12a3
commit 60c497a3ec
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/vectors.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995, 1996, 1998, 1999 Free Software Foundation, Inc. /* Copyright (C) 1995, 1996, 1998, 1999, 2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
@ -243,7 +243,7 @@ scm_vector_set_x (SCM v, SCM k, SCM obj)
SCM_ASSERT ((SCM_INUM (k) < SCM_LENGTH (v)) && (SCM_INUM (k) >= 0), SCM_ASSERT ((SCM_INUM (k) < SCM_LENGTH (v)) && (SCM_INUM (k) >= 0),
k, SCM_OUTOFRANGE, s_vector_set_x); k, SCM_OUTOFRANGE, s_vector_set_x);
SCM_VELTS(v)[(long) SCM_INUM(k)] = obj; SCM_VELTS(v)[(long) SCM_INUM(k)] = obj;
return obj; return SCM_UNSPECIFIED;
} }