more error-message conversions and repairs

original commit: a137459b65b54d65595e854101aae7440d9e65f6

collects/parser-tools/lex.rkt

@@ -294,9 +294,9 @@
                                               longest-match-length)))))))))))))
       (lambda (ip)
         (unless (input-port? ip)
-          (raise-type-error 
+          (raise-argument-error 
            'lexer 
-           "input-port"
+           "input-port?"
            0
            ip))
         (lexer ip))))

collects/parser-tools/yacc.rkt

@@ -224,8 +224,8 @@
        (values tok #f v1 v2))
       ((token? tok)
        (values (real-token-name tok) (real-token-value tok) v1 v2))
-      (else (raise-type-error 'parser 
-                              "symbol or struct:token"
+      (else (raise-argument-error 'parser 
+                                  "(or/c symbol? token?)"
                                   0 
                                   tok))))
   
@@ -237,8 +237,8 @@
                        (position-token-start-pos ip)
                        (position-token-end-pos ip)))
       (else
-       (raise-type-error 'parser 
-                         "struct:position-token"
+       (raise-argument-error 'parser 
+                             "position-token?"
                              0
                              ip))))