diff options
author | Andy Wingo <wingo@pobox.com> | 2012-06-22 12:30:39 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-06-22 12:33:20 +0200 |
commit | 2874f66017b7bfae256e85af84689d00ecc418ab (patch) | |
tree | 1e7f3c6da4ac01ada09e0490a4f559a903853ea6 | |
parent | 5cfa385db721222069aa5a74421cbac6e6cee26a (diff) | |
download | guile-2874f66017b7bfae256e85af84689d00ecc418ab.tar.gz |
add char->integer, number->string etc to interesting primitives
* 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.
-rw-r--r-- | module/language/tree-il/primitives.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/module/language/tree-il/primitives.scm b/module/language/tree-il/primitives.scm index dba31bdc8..a1c5adc71 100644 --- a/module/language/tree-il/primitives.scm +++ b/module/language/tree-il/primitives.scm @@ -54,6 +54,8 @@ char<? char<=? char>=? char>? + integer->char char->integer number->string string->number + acons cons cons* list vector @@ -154,6 +156,7 @@ pair? null? list? symbol? vector? struct? string? number? char? complex? real? rational? inf? nan? integer? exact? inexact? even? odd? char<? char<=? char>=? char>? + integer->char char->integer number->string string->number struct-vtable string-length ;; These all should get expanded out by expand-primitives!. |