Hi, This fixes ticket Ã#704. I could not find any references to this procedures apart from the environments egg which is broken anyway.
Kind regards, Christian -- Who can (make) the muddy water (clear)? Let it be still, and it will gradually become clear. Who can secure the condition of rest? Let movement go on, and the condition of rest will gradually arise. -- Lao Tse.
>From 35f1d83acb1f9a5ae44169200df6f84b90debfd9 Mon Sep 17 00:00:00 2001 From: Christian Kellermann <[email protected]> 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
_______________________________________________ Chicken-hackers mailing list [email protected] https://lists.nongnu.org/mailman/listinfo/chicken-hackers
