From eda1fbc6e20b9743de0c34a96464aad8bdf27b68 Mon Sep 17 00:00:00 2001
From: handa <handa>
Date: Thu, 3 Jul 2008 00:47:10 +0000
Subject: [PATCH] (init): Use @-1 instead of @- to refer to the previous
 character.

---
 MIM/unicode.mim |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/MIM/unicode.mim b/MIM/unicode.mim
index 706ef16..e6f0be8 100644
--- a/MIM/unicode.mim
+++ b/MIM/unicode.mim
@@ -57,8 +57,8 @@ Start typing hexadecimal numbers of Unicode character.")
   (starter (set code 0) (set count 0) (shift uni-hex)))
 
  (uni-hex
-  (hex (set this @-)
-       (cond ((< @- ?A) (sub this 48))
+  (hex (set this @-1)
+       (cond ((< @-1 ?A) (sub this 48))
 	     (1 (sub this 55)))
        (set code (+ (* code 16) this))
        (set count (+ count 1))
-- 
1.7.10.4