Switch demo2 and demo3 from roman numerals to hex.

1 files changed, 3 insertions, 1 deletions

diff --git a/demo2.tl b/demo2.tl
index 25bea85..f45baa6 100755
--- a/demo2.tl
+++ b/demo2.tl
@@ -21,7 +21,9 @@
 ; Button number (bn) and button number text (bnt):
 (defun bn (n) (nth (pred n) '(11 22 33 44 55)))
 
-(defun bnt (n) (format nil (if (eq numar 'a) "~d" "~x") (bn n)))
+(defun bnt (n)
+  (let ((h-or-d (relate '(dec hex) '("~d" "~x"))))
+    (fmt [h-or-d numar] (bn n))))
 
 (defun togglenumar ()
   (upd numar toggle)