diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-12-03 15:48:50 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-12-03 15:48:50 +0000 |
| commit | cb0d95bad4daf04a8e91277f0bc2f5348a1aa9de (patch) | |
| tree | 91b644568af297cd20cc1e5fc06131c9a988b727 | |
| parent | 669669e33a8b713011db7bb8b461d6291410ba3d (diff) | |
| download | open-axiom-cb0d95bad4daf04a8e91277f0bc2f5348a1aa9de.tar.gz | |
* pf2sex.boot (pf2Sex1): Be talkative about why a parse form is Wrong.
| -rw-r--r-- | src/interp/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/pf2sex.boot | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index 4b2792a7..2c4a741d 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,5 +1,9 @@ 2007-12-03 Gabriel Dos Reis <gdr@cs.tamu.edu> + * pf2sex.boot (pf2Sex1): Be talkative about why a parse form is Wrong. + +2007-12-03 Gabriel Dos Reis <gdr@cs.tamu.edu> + * i-parser.boot: New. * Makefile.pamphlet (i-parser.$(FASLEXT)): New rule. (OBJS): Include i-parser.$(FASLEXT). diff --git a/src/interp/pf2sex.boot b/src/interp/pf2sex.boot index 52c7daf5..871d0c77 100644 --- a/src/interp/pf2sex.boot +++ b/src/interp/pf2sex.boot @@ -128,7 +128,7 @@ pf2Sex1 pf == pfLocal? pf => ['local, :[pf2Sex1 item for item in pf0LocalItems pf]] pfWrong? pf => - spadThrow() + spadThrowBrightly pfDocumentText pfWrongWhy pf pfAnd? pf => ["and", pf2Sex1 pfAndLeft pf, pf2Sex1 pfAndRight pf] pfOr? pf => |