>From 35f1d83acb1f9a5ae44169200df6f84b90debfd9 Mon Sep 17 00:00:00 2001 From: Christian Kellermann Date: Wed, 28 Sep 2011 14:02:14 +0200 Subject: [PATCH] Remove ##sys#walk-namespace as it is not used anymore. --- library.scm | 11 ----------- 1 files changed, 0 insertions(+), 11 deletions(-) diff --git a/library.scm b/library.scm index 4cf975c..e07e9c4 100644 --- a/library.scm +++ b/library.scm @@ -4801,17 +4801,6 @@ EOF [(pair? default) (car default)] [else (##sys#error "symbol not exported from namespace" sym ns)] ) ) ) -(define (##sys#walk-namespace proc . args) - (let ([ns (if (pair? args) (car args) ".")]) - (let ([nsp (##sys#find-symbol-table ns)] - [enum-syms! (foreign-lambda scheme-object "C_enumerate_symbols" c-pointer scheme-object)] - [pos (cons -1 '())]) - (unless nsp (##sys#error "undefined namespace" ns)) - (let loop () - (let ([sym (enum-syms! nsp pos)]) - (when sym - (proc sym) - (loop) ) ) ) ) ) ) ;;; More memory info -- 1.7.4.1