From d32dc9d43f25d296ddb255aa9ed424a6fbd2b190 Mon Sep 17 00:00:00 2001 From: Gareth Rees Date: Tue, 6 Nov 2012 19:43:21 +0000 Subject: [PATCH] Oops, forgot to remove mps-specific comment. Copied from Perforce Change: 180376 ServerID: perforce.ravenbrook.com --- mps/example/scheme/scheme-boehm.c | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/mps/example/scheme/scheme-boehm.c b/mps/example/scheme/scheme-boehm.c index 836909cd480..59e875b9dd5 100644 --- a/mps/example/scheme/scheme-boehm.c +++ b/mps/example/scheme/scheme-boehm.c @@ -3202,13 +3202,9 @@ static obj_t entry_hashtable_keys(obj_t env, obj_t op_env, obj_t operator, obj_t } -/* entry_gc -- full garbage collection now %%MPS - * - * This is an example of a direct interface from the language to the MPS. - * The `gc` function in Scheme will cause the MPS to perform a complete - * garbage collection of the entire arena right away. See topic/arena. +/* (gc) + * Run a full garbage collection now. */ - static obj_t entry_gc(obj_t env, obj_t op_env, obj_t operator, obj_t operands) { eval_args(operator->operator.name, env, op_env, operands, 0);