diff options
Diffstat (limited to 'src/interp/g-error.boot')
-rw-r--r-- | src/interp/g-error.boot | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/src/interp/g-error.boot b/src/interp/g-error.boot index 3841f295..e0c0c905 100644 --- a/src/interp/g-error.boot +++ b/src/interp/g-error.boot @@ -63,8 +63,8 @@ $ReadingFile := false argumentDataError(argnum, condit, funname) == msg := ['"The test",:bright pred2English condit,'"evaluates to", - :bright '"false",'%l,'" for argument",:bright argnum,_ - '"to the function",:bright funname,'"and this indicates",'%l,_ + :bright '"false",'"%l",'" for argument",:bright argnum,_ + '"to the function",:bright funname,'"and this indicates",'"%l",_ '" that the argument is not appropriate."] errorSupervisor($AlgebraError,msg) @@ -96,7 +96,7 @@ errorSupervisor1(errorType,errorMsg,$BreakMode) == msg := errorMsg is ['mathprint, :.] => errorMsg atom errorMsg => ['" ", errorMsg] - needsToSplitMessage errorMsg => rest [:['%l,'" ",u] for u in errorMsg] + needsToSplitMessage errorMsg => rest [:['"%l",'" ",u] for u in errorMsg] ['" ",:errorMsg] sayErrorly(errorLabel, msg) handleLispBreakLoop($BreakMode) @@ -111,11 +111,11 @@ handleLispBreakLoop($BreakMode) == while not gotIt repeat gotIt := true msgQ := - ['%l,'" You have three options. Enter:",'%l,_ - '" ",:bright '"continue",'" to continue processing,",'%l,_ - '" ",:bright '"top ",'" to return to top level, or",'%l,_ - '" ",:bright '"break ",'" to enter a LISP break loop.",'%l,_ - '%l,'" Please enter your choice now:"] + ['"%l",'" You have three options. Enter:",'"%l",_ + '" ",:bright '"continue",'" to continue processing,",'"%l",_ + '" ",:bright '"top ",'" to return to top level, or",'"%l",_ + '" ",:bright '"break ",'" to enter a LISP break loop.",'"%l",_ + '"%l",'" Please enter your choice now:"] x := STRING2ID_-N(queryUser msgQ,1) x := selectOptionLC(x,'(top break continue),NIL) null x => @@ -125,9 +125,9 @@ handleLispBreakLoop($BreakMode) == x = 'break => $BreakMode := 'break sayBrightly ['" Enter",:bright '":C", - '"when you are ready to continue processing where you ",'%l,_ + '"when you are ready to continue processing where you ",'"%l",_ '" interrupted the system, enter",:bright '"(TOP)",_ - '"when you wish to return",'%l,'" to top level.",'%l,'%l] + '"when you wish to return",'"%l",'" to top level.",'"%l",'"%l"] BREAK() sayBrightly '" Processing will continue where it was interrupted." @@ -145,7 +145,7 @@ returnToTopLevel() == returnToReader() == not $ReadingFile => returnToTopLevel() - sayBrightly ['" Continuing to read the file...", '%l] + sayBrightly ['" Continuing to read the file...", '"%l"] THROW($SpadReaderTag, nil) sayErrorly(errorLabel, msg) == |