diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-19 20:59:19 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-19 20:59:19 +0000 |
| commit | 737f8027fac2d4f398bed6e7f82ec69b45531668 (patch) | |
| tree | 779daa29eb3853714ba3a2dc99ba322ca114a4cf /src/algebra/files.spad.pamphlet | |
| parent | a3493316634d0bf180116c59744a0aabe9afb311 (diff) | |
| download | open-axiom-737f8027fac2d4f398bed6e7f82ec69b45531668.tar.gz | |
* algebra/files.spad.pamphlet (KeyedAccessFile): Use try/finally
instead of Lisp-level UNWIND-PROTECT.
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 |