From 4a7b8e70463ca239030c406e89777e209f393c33 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 6 Mar 2011 19:04:54 +0000
Subject: 	* interp/g-opt.boot ($VMsideEffectFreeOperators): Include
 %c2s. 	* interp/lisp-backend.boot: Translate it. 	*
 algebra/integer.spad.pamphlet (Integer) [convert]: Tidy. 	[latex]:
 Likewise. 	* algebra/string.spad.pamphlet (Character)[latex]: Likewise.

---
 src/interp/g-opt.boot        | 2 +-
 src/interp/lisp-backend.boot | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/interp')

diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index 07562c49..ad5d7b84 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -445,7 +445,7 @@ $VMsideEffectFreeOperators ==
     %zsinh %zcosh %ztanh %zasinh %zacosh %zatanh
     %nil %pair? %lconcat %llength %lfirst %lsecond %lthird
     %lreverse %lempty? %hash %ismall? %string? %f2s
-    %ccst %ceq %clt %cle %cgt %cge %c2i %i2c %s2c %cup %cdown %sname
+    %ccst %ceq %clt %cle %cgt %cge %c2i %i2c %s2c %c2s %cup %cdown %sname
     %strlength %streq %i2s %schar %strlt %strconc %strcopy
     %aref %vref %vlength
     %bitvecnot %bitvecand %bitvecnand %bivecor %bitvecnor %bitvecxor
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot
index 637e1629..7a068efb 100644
--- a/src/interp/lisp-backend.boot
+++ b/src/interp/lisp-backend.boot
@@ -456,6 +456,7 @@ for x in [
     ['%cdown,  :'CHAR_-DOWNCASE],
     ['%c2i,    :'CHAR_-CODE],
     ['%i2c,    :'CODE_-CHAR],
+    ['%c2s,    :'STRING],
 
     -- byte operations
     ['%beq, :'byteEqual],
-- 
cgit v1.2.3