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

(gc) takes no arguments, so check this.

Browse source 
Copied from Perforce
 Change: 180075
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Gareth Rees 2012-10-25 14:03:07 +01:00
parent 68790f5b8c
commit 591065565e
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2651,7 +2651,9 @@ static obj_t entry_string_copy(obj_t env, obj_t op_env, obj_t operator, obj_t op
static obj_t entry_gc(obj_t env, obj_t op_env, obj_t operator, obj_t operands)
{
mps_res_t res = mps_arena_collect(arena);
mps_res_t res;
eval_args(operator->operator.name, env, op_env, operands, 0);
res = mps_arena_collect(arena);
if (res != MPS_RES_OK)
error("Couldn't collect: %d", res);
mps_arena_release(arena);