From 2874f66017b7bfae256e85af84689d00ecc418ab Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 22 Jun 2012 12:30:39 +0200
Subject: [PATCH] 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.
---
 module/language/tree-il/primitives.scm | 3 +++
 1 file changed, 3 insertions(+)

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!.