mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

add char->integer, number->string etc to interesting primitives

Browse source 
* module/language/tree-il/primitives.scm (*interesting-primitive-names*):
  (*effect-free-primitives*): Add string->number, number->string,
  integer->char, and char->integer to allow for constant folding and
  better effects analysis.
This commit is contained in:
Andy Wingo 2012-06-22 12:30:39 +02:00
parent 5cfa385db7
commit 2874f66017
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/tree-il/primitives.scm
View file

@ -54,6 +54,8 @@
char<? char<=? char>=? char>? char<? char<=? char>=? char>?
integer->char char->integer number->string string->number
acons cons cons* acons cons cons*
list vector list vector
@ -154,6 +156,7 @@
pair? null? list? symbol? vector? struct? string? number? char? pair? null? list? symbol? vector? struct? string? number? char?
complex? real? rational? inf? nan? integer? exact? inexact? even? odd? complex? real? rational? inf? nan? integer? exact? inexact? even? odd?
char<? char<=? char>=? char>? char<? char<=? char>=? char>?
integer->char char->integer number->string string->number
struct-vtable struct-vtable
string-length string-length
;; These all should get expanded out by expand-primitives!. ;; These all should get expanded out by expand-primitives!.