From c74ed936d96536336650b13fe21e79e0db7a2da4 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 14 Oct 2007 14:31:06 +0000 Subject: * 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. (<>): Remove. (<>): 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. --- src/interp/g-error.boot.pamphlet | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src/interp/g-error.boot.pamphlet') 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 @@ <> 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}" -- cgit v1.2.3