From 591065565e240e996a17207bb0334efeaa97fc71 Mon Sep 17 00:00:00 2001
From: Gareth Rees <gdr@ravenbrook.com>
Date: Thu, 25 Oct 2012 14:03:07 +0100
Subject: [PATCH] (gc) takes no arguments, so check this.

Copied from Perforce
 Change: 180075
 ServerID: perforce.ravenbrook.com
---
 mps/example/scheme/scheme.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/mps/example/scheme/scheme.c b/mps/example/scheme/scheme.c
index 10c2435c544..03031827f44 100644
--- a/mps/example/scheme/scheme.c
+++ b/mps/example/scheme/scheme.c
@@ -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);