~ chicken-core (chicken-5) 5879eb1080dc42e18f62623f24b2b5d8facea878

commit 5879eb1080dc42e18f62623f24b2b5d8facea878
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Wed Dec 18 21:58:39 2013 +0100
Commit:     Mario Domenech Goulart <mario.goulart@gmail.com>
CommitDate: Wed Dec 18 20:17:27 2013 -0200

    Mark ##sys#zap-symbols obsolete
    
    This procedure would replace every single symbol's string value in the
    symbol table by the same string.  This could even cause segfaults.
    Since it's not used, not documented and can cause trouble, let's get
    rid of it!
    
    Signed-off-by: Mario Domenech Goulart <mario.goulart@gmail.com>

diff --git a/NEWS b/NEWS
index 36b53aec..8f1f6fb6 100644
--- a/NEWS
+++ b/NEWS
@@ -6,6 +6,7 @@
 
 - Runtime system
   - The procedure trace buffer has been made resizable.
+  - C_zap_strings and ##sys#zap-strings (undocumented) have been deprecated.
 
 - Core libraries
   - Unit extras now implicitly depends on ports.  ports no longer
diff --git a/chicken.h b/chicken.h
index c25f6b8f..f61708d7 100644
--- a/chicken.h
+++ b/chicken.h
@@ -1708,7 +1708,7 @@ C_fctexport void C_fcall C_toplevel_entry(C_char *name) C_regparm;
 C_fctexport C_word C_fcall C_enable_interrupts(void) C_regparm;
 C_fctexport C_word C_fcall C_disable_interrupts(void) C_regparm;
 C_fctexport void C_fcall C_paranoid_check_for_interrupt(void) C_regparm;
-C_fctexport void C_zap_strings(C_word str);
+C_fctexport void C_zap_strings(C_word str); /* OBSOLETE */
 C_fctexport void C_set_or_change_heap_size(C_word heap, int reintern);
 C_fctexport void C_do_resize_stack(C_word stack);
 C_fctexport C_word C_resize_pending_finalizers(C_word size);
diff --git a/library.scm b/library.scm
index 2a926b68..c14d0698 100644
--- a/library.scm
+++ b/library.scm
@@ -4432,6 +4432,7 @@ EOF
    from to
    offset1 offset2 bytes) )
 
+;; OBSOLETE
 (define ##sys#zap-strings (foreign-lambda void "C_zap_strings" scheme-object))
 
 (define (##sys#block-pointer x)
diff --git a/runtime.c b/runtime.c
index 93463c22..ed2a95ea 100644
--- a/runtime.c
+++ b/runtime.c
@@ -1995,7 +1995,7 @@ void C_ccall callback_return_continuation(C_word c, C_word self, C_word r)
 }
 
 
-/* Zap symbol names: */
+/* Zap symbol names: (OBSOLETE) */
 
 void C_zap_strings(C_word str)
 {