^string.save[] не работает...

Azat 09.08.2002 18:58

Вот фрагмент кода, призванный открыть файл, сделать замену подстрок и сохранить под оригинальным именем:

$filename[/sample.txt]
$file1[^file::load[text;$filename]]
$text[$file.text]
$from2[^table::create[nameless]{шило	мыло}]
$text[^text.replace[$from2]]
^text.save[$filename]

Всё идёт гладко, но последняя команда создаёт файл нулевой длины. Пробовал добавить перед ней ^file:delete[$filename]. Не помогло...

---