suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed list*-immutable

Browse Source 
svn: r284
This commit is contained in:
Matthew Flatt 2005-06-30 19:35:24 +00:00
parent cddd4e4e66
commit f2f6a71402
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/mzscheme/src/list.c
View File

@ -770,7 +770,7 @@ list_p_prim (int argc, Scheme_Object *argv[])
}
static Scheme_Object *
list_exec (int argc, Scheme_Object *argv[], int star)
list_exec (int argc, Scheme_Object *argv[], int star, int immut)
{
int i;
Scheme_Object *l;
@ -781,9 +781,15 @@ list_exec (int argc, Scheme_Object *argv[], int star)
} else
l = scheme_null;
if (immut) {
for (i = argc ; i--; ) {
l = scheme_make_immutable_pair(argv[i], l);
}
} else {
for (i = argc ; i--; ) {
l = scheme_make_pair(argv[i], l);
}
}
return l;
}
@ -791,31 +797,25 @@ list_exec (int argc, Scheme_Object *argv[], int star)
static Scheme_Object *
list_prim (int argc, Scheme_Object *argv[])
{
return list_exec(argc, argv, 0);
return list_exec(argc, argv, 0, 0);
}
static Scheme_Object *
list_immutable_prim (int argc, Scheme_Object *argv[])
{
Scheme_Object *l;
l = list_exec(argc, argv, 0);
scheme_make_list_immutable(l);
return l;
return list_exec(argc, argv, 0, 1);
}
static Scheme_Object *
list_star_prim (int argc, Scheme_Object *argv[])
{
return list_exec(argc, argv, 1);
return list_exec(argc, argv, 1, 0);
}
static Scheme_Object *
list_star_immutable_prim (int argc, Scheme_Object *argv[])
{
Scheme_Object *l;
l = list_exec(argc, argv, 1);
scheme_make_list_immutable(l);
return l;
return list_exec(argc, argv, 1, 1);
}
static Scheme_Object *