~ chicken-core (chicken-5) cc3fcbd624478318263c233ba03567f3d6034460

commit cc3fcbd624478318263c233ba03567f3d6034460
Author:     Christian Kellermann <ckeen@pestilenz.org>
AuthorDate: Wed Sep 28 14:02:14 2011 +0200
Commit:     Christian Kellermann <ck@emlix.com>
CommitDate: Fri Sep 30 12:48:33 2011 +0200

    Remove ##sys#walk-namespace as it is not used anymore.

diff --git a/library.scm b/library.scm
index 4cf975cd..e07e9c40 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