diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-10-14 14:31:06 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-10-14 14:31:06 +0000 |
| commit | c74ed936d96536336650b13fe21e79e0db7a2da4 (patch) | |
| tree | bbe9c68519f6ca0d06af7561f114b0ce501b0605 /src/interp/g-error.boot.pamphlet | |
| parent | 095703f8cc7439cddda478b12667c5ac8264b6d5 (diff) | |
| download | open-axiom-c74ed936d96536336650b13fe21e79e0db7a2da4.tar.gz | |
* Makefile.pamphlet (${DEPSYS}): Depend on g-error.$(FASLEXT),
g-boot.$(FASLEXT), c-util.$(FASLEXT), clam.$(FASLEXT),
slam.$(FASLEXT).
(slam.$(FASLEXT)): New rule.
(clam.$(FASLEXT)): Likewise.
(g-boot.$(FASLEXT)): Likewise.
(g-error.$(FASLEXT)): Likewise.
(c-util.$(FASLEXT)): Likewise.
(<<c-util.lisp (OUT from IN)>>): Remove.
(<<c-util.clisp>>): Likewise.
* c-util.boot.pamphlet: Remove cached Lisp translation.
Push into package "BOOT". Fix syntax. Remove unused functions.
* clam.boot.pamphlet: Push into package "BOOT". Fix syntax.
* g-error.boot.package: Likewise.
* g-boot.boot.pamphlet: Push into package "BOOT".
* slam.boot.pamphlet: Likewise.
* sys-global.boot (CHR): Define.
(TOK): Likewise.
Diffstat (limited to 'src/interp/g-error.boot.pamphlet')
| -rw-r--r-- | src/interp/g-error.boot.pamphlet | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/interp/g-error.boot.pamphlet b/src/interp/g-error.boot.pamphlet index 103b8b0a..08ecc434 100644 --- a/src/interp/g-error.boot.pamphlet +++ b/src/interp/g-error.boot.pamphlet @@ -50,6 +50,7 @@ <<license>> import '"diagnostics" +import '"g-util" )package "BOOT" -- This file contains the error printing code used in BOOT and SPAD. @@ -63,9 +64,9 @@ import '"diagnostics" -- nobreak -- do not enter lisp break mode -- query -- ask the user if break mode should be entered -SETANDFILEQ($SystemError,'SystemError) -SETANDFILEQ($UserError,'UserError) -SETANDFILEQ($AlgebraError,'AlgebraError) +$SystemError == 'SystemError +$UserError == 'UserError +$AlgebraError =='AlgebraError -- REDERR is used in BFLOAT LISP, should be a macro -- REDERR msg == error msg @@ -178,7 +179,7 @@ sayErrorly(errorLabel, msg) == sayErrorly1(errorLabel, msg) saturnSayErrorly(errorLabel, msg) == - _*STANDARD_-OUTPUT_* : fluid := $texOutputStream + SETQ(_*STANDARD_-OUTPUT_*, $texOutputStream) old := pushSatOutput("line") sayString '"\bgroup\color{red}" sayString '"\begin{verbatim}" |