From: handa <handa>
Date: Thu, 3 Jul 2008 00:47:10 +0000 (+0000)
Subject: (init): Use @-1 instead of @- to refer to the
X-Git-Tag: REL-1-5-3~68
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=eda1fbc6e20b9743de0c34a96464aad8bdf27b68;p=m17n%2Fm17n-db.git

(init): Use @-1 instead of @- to refer to the
previous character.
---

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))