diff options
Diffstat (limited to 'src/interp')
| -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 => |