>From 4b061fc9de8f4e432ec4cbf1e9476d5b1d25d522 Mon Sep 17 00:00:00 2001 From: Evan Hanson Date: Mon, 12 Jan 2015 18:40:19 +1100 Subject: [PATCH] Make ->string procedures non-foldable This follows the other string conversion procedures, which return newly-allocated strings. - number->string - symbol->string - ##sys#fixnum->string --- types.db | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/types.db b/types.db index 7909273..177d2a8 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))) -- 1.7.10.4