diff options
Diffstat (limited to 'src/algebra/files.spad.pamphlet')
| -rw-r--r-- | src/algebra/files.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/files.spad.pamphlet b/src/algebra/files.spad.pamphlet index 6f288a23..82fac4e6 100644 --- a/src/algebra/files.spad.pamphlet +++ b/src/algebra/files.spad.pamphlet @@ -391,8 +391,8 @@ KeyedAccessFile(Entry): KAFcategory == KAFcapsule where setelt(f,k,e) == -- Leaves f in a safe, closed state. For speed use "write". reopen!(f, "output") - UNWIND_-PROTECT(write!(f, [k,e]), close! f)$Lisp - close! f + try write!(f, [k,e]) + finally close! f e search(k,f) == not member?(k, keys f) => "failed" -- can't trap RREAD error |