awk: bugfix: fconv symbols not in usr package.

* share/txr/stdlib/conv.tl (sys:conv-let): Use usr: package
prefix on the conversion symbols i, o, x, b. They are
being interned in the system package, which breaks the
awk fconv macro.

1 files changed, 12 insertions, 12 deletions

diff --git a/share/txr/stdlib/conv.tl b/share/txr/stdlib/conv.tl
index 7a3551f9..21e76815 100644
--- a/share/txr/stdlib/conv.tl
+++ b/share/txr/stdlib/conv.tl
@@ -25,29 +25,29 @@
 ;; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 (defun sys:conv-let (. body)
-  ^(flet ((i (arg : radix)
+  ^(flet ((usr:i (arg : radix)
             (toint arg radix))
-          (o (arg)
+          (usr:o (arg)
             (toint arg 8))
-          (x (arg)
+          (usr:x (arg)
             (toint arg 16))
-          (b (arg)
+          (usr:b (arg)
             (toint arg 2))
-          (c (arg)
+          (usr:c (arg)
             (toint arg #\c))
-          (r (arg)
+          (usr:r (arg)
             (tofloat arg))
-          (iz (arg : radix)
+          (usr:iz (arg : radix)
             (tointz arg radix))
-          (oz (arg)
+          (usr:oz (arg)
             (tointz arg 8))
-          (xz (arg)
+          (usr:xz (arg)
             (tointz arg 16))
-          (bz (arg)
+          (usr:bz (arg)
             (tointz arg 2))
-          (cz (arg)
+          (usr:cz (arg)
             (tointz arg #\c))
-          (rz (arg)
+          (usr:rz (arg)
             (tofloatz arg)))
      ,*body))