From a2acc7b38062bc226c4e6696f132b1e5f8120eb5 Mon Sep 17 00:00:00 2001 From: obiwac Date: Fri, 28 Apr 2023 15:50:40 +0200 Subject: [PATCH] lib: Fix switched arguments in `File.seek` `WhenceA` and `OffsetI` arguments passed to `OS.lSeek` from `File.seek` are the wrong way around. --- lib/main/op/Open.oz | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lib/main/op/Open.oz b/lib/main/op/Open.oz index a1e455bce..be6b58d15 100644 --- a/lib/main/op/Open.oz +++ b/lib/main/op/Open.oz @@ -370,11 +370,11 @@ in lock self.ReadLock then lock self.WriteLock then D=@WriteDesc in if {IsInt D} then - {OS.lSeek D O case W - of 'set' then 'SEEK_SET' - [] 'current' then 'SEEK_CUR' - [] 'end' then 'SEEK_END' - end _} + {OS.lSeek D case W + of 'set' then 'SEEK_SET' + [] 'current' then 'SEEK_CUR' + [] 'end' then 'SEEK_END' + end O _} else {RaiseClosed self seek(whence:W offset:O)} end end