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/sys-driver.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/sys-driver.boot')
-rw-r--r-- | src/interp/sys-driver.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index b9b0739c..4c98c8e2 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -252,7 +252,7 @@ executeSpadScript(progname,options,file) == $ProcessInteractiveValue := true $PrintCompilerMessageIfTrue := $verbose CATCH($intCoerceFailure, - CATCH($intSpadReader,read [file])) + CATCH($SpadReaderTag,read [file])) coreQuit (errorCount()> 0 => 1; 0) associateRequestWithFileType(Option '"script", '"input", @@ -269,7 +269,7 @@ compileSpadLibrary(progname,options,file) == $PrintCompilerMessageIfTrue := $verbose CATCH($intTopLevel, CATCH("SpadCompileItem", - CATCH($intSpadReader,compiler [file]))) + CATCH($SpadReaderTag,compiler [file]))) coreQuit (errorCount()> 0 => 1; 0) associateRequestWithFileType(Option '"compile", '"spad", |