diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-19 00:42:27 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-19 00:42:27 +0000 |
| commit | abd2b49e66adf06d16d6664526f693e67bdaf719 (patch) | |
| tree | 8a7652a010f107d37926b2a5636f826a2ec298d6 /src/boot/translator.boot | |
| parent | 0b00c2ae8f58ce6d812f6ce3fbfecc19db7ffd3f (diff) | |
| download | open-axiom-abd2b49e66adf06d16d6664526f693e67bdaf719.tar.gz | |
* boot/translator.boot (BOOTTOCL): Replace Lisp-level contruct
with try/finally.
(BOOTTOCLC): Likewise.
Diffstat (limited to 'src/boot/translator.boot')
| -rw-r--r-- | src/boot/translator.boot | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot index dd20eb89..84f3c9ec 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -86,14 +86,14 @@ shoeCOMPILE_-FILE lspFileName == BOOTTOCL(fn, out) == - UNWIND_-PROTECT( - PROGN(startCompileDuration(), - callingPackage := _*PACKAGE_*, - IN_-PACKAGE '"BOOTTRAN", - result := BOOTTOCLLINES(nil,fn, out), - setCurrentPackage callingPackage, - result), - endCompileDuration()) + try + startCompileDuration() + callingPackage := _*PACKAGE_* + IN_-PACKAGE '"BOOTTRAN" + result := BOOTTOCLLINES(nil,fn, out) + setCurrentPackage callingPackage + result + finally endCompileDuration() ++ (bootclam "filename") translates the file "filename.boot" to ++ the common lisp file "filename.clisp" , producing, for each function @@ -124,14 +124,14 @@ shoeClLines(a,fn,lines,outfn)== ++ the common lisp file "filename.clisp" with the original boot ++ code as comments BOOTTOCLC(fn, out)== - UNWIND_-PROTECT( - PROGN(startCompileDuration(), - callingPackage := _*PACKAGE_*, - IN_-PACKAGE '"BOOTTRAN", - result := BOOTTOCLCLINES(nil, fn, out), - setCurrentPackage callingPackage, - result), - endCompileDuration()) + try + startCompileDuration() + callingPackage := _*PACKAGE_* + IN_-PACKAGE '"BOOTTRAN" + result := BOOTTOCLCLINES(nil, fn, out) + setCurrentPackage callingPackage + result + finally endCompileDuration() BOOTTOCLCLINES(lines, fn, outfn)== infn:=shoeAddbootIfNec fn |