~ chicken-core (chicken-5) d701161502ac7c21ab46e586151cdd3c2a4d2982

commit d701161502ac7c21ab46e586151cdd3c2a4d2982
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Mon Jan 12 18:40:19 2015 +1100
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Mon Jan 19 21:18:10 2015 +0100

    Make ->string procedures non-foldable
    
    This follows the other string conversion procedures, which return
    newly-allocated strings.
    
      - number->string
      - symbol->string
      - ##sys#fixnum->string
    
    Signed-off-by: Peter Bex <peter.bex@xs4all.nl>

diff --git a/types.db b/types.db
index 79092733..177d2a8f 100644
--- a/types.db
+++ b/types.db
@@ -220,7 +220,7 @@
 (symbol? (#(procedure #:pure #:predicate symbol) symbol? (*) boolean))
 
 (symbol-append (#(procedure #:clean #:enforce #:foldable) symbol-append (#!rest symbol) symbol))
-(symbol->string (#(procedure #:clean #:enforce #:foldable) symbol->string (symbol) string))
+(symbol->string (#(procedure #:clean #:enforce) symbol->string (symbol) string))
 (string->symbol (#(procedure #:clean #:enforce #:foldable) string->symbol (string) symbol))
 
 (number? (#(procedure #:pure #:predicate number) number? (*) boolean))
@@ -507,10 +507,10 @@
 			       #(2)))
       ((float float) (##core#inline_allocate ("C_a_i_flonum_atan2" 4) #(1) #(2))))
 
-(number->string (#(procedure #:clean #:enforce #:foldable) number->string (number #!optional fixnum) string)
+(number->string (#(procedure #:clean #:enforce) number->string (number #!optional fixnum) string)
 		((fixnum) (##sys#fixnum->string #(1))))
 
-(##sys#fixnum->string (#(procedure #:clean #:enforce #:foldable) ##sys#fixnum->string (fixnum) string))
+(##sys#fixnum->string (#(procedure #:clean #:enforce) ##sys#fixnum->string (fixnum) string))
 
 (string->number (#(procedure #:clean #:enforce #:foldable) string->number (string #!optional fixnum)
 		 (or number false)))