mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix bug in append when the first argument is nil.

Browse source 
Copied from Perforce
 Change: 180004
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Gareth Rees 2012-10-22 12:54:35 +01:00
parent 4c10e357a4
commit c3a91c815c
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
mps/example/scheme/scheme.c
View file

@ -1948,6 +1948,8 @@ static obj_t entry_append(obj_t env, obj_t op_env, obj_t operator, obj_t operand
}
if(arg1 != obj_empty)
error("%s: applied to non-list", operator->operator.name);
if(result == obj_empty)
return arg2;
CDR(end) = arg2;
return result;
}