From b860ecfa505e4a5bd1f590a06ad1915b6c8e7785 Mon Sep 17 00:00:00 2001 From: Nick Barnes Date: Tue, 2 Jul 2013 15:53:46 +0100 Subject: [PATCH] Back out changes to master mps sources made inadvertently during a branch change. Copied from Perforce Change: 182891 ServerID: perforce.ravenbrook.com --- mps/design/strategy.txt | 2 +- mps/example/scheme/josephus.scm | 11 ++--------- 2 files changed, 3 insertions(+), 10 deletions(-) diff --git a/mps/design/strategy.txt b/mps/design/strategy.txt index 69b55998499..4b71c72b840 100644 --- a/mps/design/strategy.txt +++ b/mps/design/strategy.txt @@ -145,7 +145,7 @@ end up in the topGen, which is shared between all chains and all pools. For statistics and reporting purposes, when ``STATISTICS`` is -on, each AMC pool has an array of ``PageRetStruct`` s, one per +on, each AMC pool has an array of ``PageRetStruct``s, one per trace. This structure has many ``Count`` fields, and is intended to help to assess AMC page retention code. See job001811. diff --git a/mps/example/scheme/josephus.scm b/mps/example/scheme/josephus.scm index 7f337756559..9f9f23fc6ae 100644 --- a/mps/example/scheme/josephus.scm +++ b/mps/example/scheme/josephus.scm @@ -47,17 +47,10 @@ (vector-set! chain 0 current) current) -(define (inner-loop i) - (if (< i 100) +(define (loop i) + (if (< i 10000) (begin (define chain (make-chain 40)) (chain-kill chain 3) - (inner-loop (+ i 1))))) - -(define (loop i) - (if (< i 100) - (begin - (inner-loop 0) - (write i) (loop (+ i 1))))) (loop 0)