src/pset-parse.lisp: Report `{' and `<' as expected tokens in errors.

For fragments and types, respectively.

diff --git a/src/pset-parse.lisp b/src/pset-parse.lisp
index d2bcc703fc06e5743408d762a1d5710191182bfd..a2199b69e50513562e46b199fa9f84b3f0344703 100644 (file)
--- a/src/pset-parse.lisp
+++ b/src/pset-parse.lisp
@@ -120,7 +120,7 @@     (defun parse-expression (scanner)
                                     (values (cons :type (car dc))
                                             t t))))
                           (t
                                     (values (cons :type (car dc))
                                             t t))))
                           (t

-                           (values (list :int :id :char :string #\?)
+                           (values (list :int :id :char :string #\? #\{ #\<)

                                    nil nil)))))
                 (or (seq (#\+) add)
                     (seq (#\-) sub)
                                    nil nil)))))
                 (or (seq (#\+) add)
                     (seq (#\-) sub)