diff TL1/test/t4.tl1 @ 177:3770e86114aa

TL/1 fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 15 Apr 2019 04:27:18 +0900
parents 6ef317714ae8
children 4d83154d2a78
line wrap: on
line diff
--- a/TL1/test/t4.tl1	Mon Apr 15 00:25:58 2019 +0900
+++ b/TL1/test/t4.tl1	Mon Apr 15 04:27:18 2019 +0900
@@ -24,20 +24,20 @@
 ARRAY BEND
 BEGIN
   VAL := SEEK(DICT,TEND)
-  POSITION(BUF,BEND)
+  D:=POSITION(BUF,BEND)
   WHILE VAL#0 DO [
-     C:=SEEKR(BUF,-1)
-     K:=SEEKR(DICT,-1)
+     C:=SEEKR(BUF,0-1)
+     K:=SEEKR(DICT,0-1)
      IF K.LT.0 THEN [
-       IF C=-K THEN
+       IF C=0-K THEN
           RETURN VAL    % FOUND
-       VAL := SEEKR(DICT,-1)
+       VAL := SEEKR(DICT,0-1)
      ] ELSE IF C#K THEN [
        D:=SEEK(BUF,BEND)
        REPEAT
-          K:=SEEKR(DICT,-1)
+          K:=SEEKR(DICT,0-1)
        UNTIL K.LT.0
-       VAL := SEEKR(DICT,-1)
+       VAL := SEEKR(DICT,0-1)
      ]
   ]
   RETURN VAL % NOT FOUND