summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2012-06-22 12:30:39 +0200
committerAndy Wingo <wingo@pobox.com>2012-06-22 12:33:20 +0200
commit2874f66017b7bfae256e85af84689d00ecc418ab (patch)
tree1e7f3c6da4ac01ada09e0490a4f559a903853ea6
parent5cfa385db721222069aa5a74421cbac6e6cee26a (diff)
downloadguile-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.scm3
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!.