diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-02-01 18:41:39 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-02-01 18:41:39 +0000 |
| commit | 362536248113df141d3dbaffffdf7794f43f726b (patch) | |
| tree | bf0af8c8b8e422ed602d282ab85dd35eb2f07208 | |
| parent | ad548d86891fc4587d27061c6b79ee66bd467274 (diff) | |
| download | open-axiom-362536248113df141d3dbaffffdf7794f43f726b.tar.gz | |
* interp/nrunopt.boot (NRTgetLookupFunction): Explain reason for
non-extension.
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/nrunopt.boot | 7 |
2 files changed, 9 insertions, 3 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 2b91a6b9..fb633d2b 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,10 @@ 2011-02-01 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/nrunopt.boot (NRTgetLookupFunction): Explain reason for + non-extension. + +2011-02-01 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/compiler.boot (compList): Use %nil form, not NIL. 2011-01-31 Gabriel Dos Reis <gdr@cs.tamu.edu> diff --git a/src/interp/nrunopt.boot b/src/interp/nrunopt.boot index f15ed5f4..d83087d8 100644 --- a/src/interp/nrunopt.boot +++ b/src/interp/nrunopt.boot @@ -807,11 +807,12 @@ NRTgetLookupFunction(domform,exCategory,addForm) == if null extends then [u,msg,:v] := $why SAY '"--------------non extending category----------------------" - compilerMessage('"%1p of category %2p", [domform,u]) + sayPatternMsg('"%1p of category %2p", [domform,u]) if v ~= nil then - compilerMessage('"%1b %2p",[msg,first v]) + sayPatternMsg('"%1b %2p",[msg,first v]) else - compilerMessage('"%1b",[msg]) + sayPatternMsg('"%1b",[msg]) + SAY '"----------------------------------------------------------" extends => 'lookupIncomplete 'lookupComplete |