From 6d37b145df854d2ac9d5cab89359ee11aa92a505 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 11 Oct 2008 14:50:22 +0000 Subject: [PATCH] fix great awlful memory leak in scribble's collect phase (which was exposed most clearly by the web-server tutorial); change in.sxref to be use fasl (bytecode) format svn: r11989 original commit: 95fa65b7b3cb06cf4c8daf40d92f61783fec4f77 --- collects/scribble/manual.ss | 19 ++++++++----------- 1 file changed, 8 insertions(+), 11 deletions(-) diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss index 2d34bea9..e4af7d94 100644 --- a/collects/scribble/manual.ss +++ b/collects/scribble/manual.ss @@ -376,19 +376,16 @@ (hash-ref checkers lib (lambda () - (let ([ns (make-base-empty-namespace)]) - (parameterize ([current-namespace ns]) - (namespace-require `(for-label ,lib))) + (let ([ns-id + (let ([ns (make-base-empty-namespace)]) + (parameterize ([current-namespace ns]) + (namespace-require `(for-label ,lib)) + (namespace-syntax-introduce (datum->syntax #f 'x))))]) (let ([checker (lambda (id) - (parameterize ([current-namespace - ns]) - (free-label-identifier=? - (namespace-syntax-introduce - (datum->syntax - #f - (syntax-e id))) - id)))]) + (free-label-identifier=? + (datum->syntax ns-id (syntax-e id)) + id))]) (hash-set! checkers lib checker) checker))))]) (and (checker id) lib)))