diff options
author | dos-reis <gdr@axiomatics.org> | 2008-09-20 17:54:46 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-09-20 17:54:46 +0000 |
commit | fde9260a842114ae27a99f7de23c9a46b79eccf4 (patch) | |
tree | 5c5535e97654b0491321cb1dbbaef5800b751980 /src/interp/g-error.boot | |
parent | 75cc0a4b26fd4d3f896677f792f47659430e9824 (diff) | |
download | open-axiom-fde9260a842114ae27a99f7de23c9a46b79eccf4.tar.gz |
* include/cfuns.h (oa_dirname): Declare.
* lib/cfuns-c.c (openaxiom_is_path_separator): New.
(oa_dirname): Define.
(writeablep): Use it.
* algebra/fname.spad.pamphlet (writable?$FileName): Tidy.
Diffstat (limited to 'src/interp/g-error.boot')
-rw-r--r-- | src/interp/g-error.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/g-error.boot b/src/interp/g-error.boot index 2d7747d5..6123c2ff 100644 --- a/src/interp/g-error.boot +++ b/src/interp/g-error.boot @@ -131,7 +131,7 @@ handleLispBreakLoop($BreakMode) == BREAK() sayBrightly '" Processing will continue where it was interrupted." - THROW('SPAD__READER, nil) + THROW($SpadReaderTag, nil) $BreakMode = 'resume => returnToReader() returnToTopLevel() @@ -146,7 +146,7 @@ returnToTopLevel() == returnToReader() == ^$ReadingFile => returnToTopLevel() sayBrightly ['" Continuing to read the file...", '%l] - THROW('SPAD__READER, nil) + THROW($SpadReaderTag, nil) sayErrorly(errorLabel, msg) == $saturn => saturnSayErrorly(errorLabel, msg) |