Ошибка в CUT-PATH

[Yuriy Zhilovets]

Привет всем!
В CUT-PATH есть ошибка. Если _после_ конца переданной строки стоит
разделитель, то возвращается неправильный результат:

S" aaa/" 1- CUT-PATH . .
4 5450000

а должно быть 3 5450000

Вот мой вариант (не так хитро написанный, правда):

: CUT-PATH ( a n1 -- a n2)
 0
 BEGIN
   2DUP >
 WHILE
   2 PICK OVER + C@ is_path_delimiter IF NIP 1- EXIT THEN
   1+
 REPEAT DROP
;

Ю. Жиловец

[Ruvim Pinka]

Привет!

On 6/4/07, Yuriy Zhilovets <[hidden email]> wrote:

В CUT-PATH есть ошибка. Если _после_ конца переданной строки стоит
разделитель, то возвращается неправильный результат:

да, эта ошибка исправлена, без недели месяц как уже.
Очень помогают быть в курсе дел RSS-потоки :)

--
Ruvim