From cb0d95bad4daf04a8e91277f0bc2f5348a1aa9de Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 3 Dec 2007 15:48:50 +0000 Subject: * pf2sex.boot (pf2Sex1): Be talkative about why a parse form is Wrong. --- src/interp/ChangeLog | 4 ++++ src/interp/pf2sex.boot | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'src/interp') diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index 4b2792a7..2c4a741d 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,3 +1,7 @@ +2007-12-03 Gabriel Dos Reis + + * pf2sex.boot (pf2Sex1): Be talkative about why a parse form is Wrong. + 2007-12-03 Gabriel Dos Reis * i-parser.boot: New. 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 => -- cgit v1.2.3