Fix langtag parsing

Julien LepillerWed Apr 01 03:28:17+0200 2020

e4fcd88

Fix langtag parsing

turtle/parser.scm

3535 
  (and "_:" (or pn-chars-u (range #\0 #\9)) (* (and (* ".") pn-chars))))
3636 
;; [144s] 	LANGTAG 	::= 	'@' [a-zA-Z]+ ('-' [a-zA-Z0-9]+)*
3737 
(define-peg-pattern langtag all
38-
  (and "@" (+ (or (range #\a #\z) (range #\A #\Z)))
39-
       (* (and "-" (or (range #\a #\z) (range #\A #\Z) (range #\0 #\9))))))
38+
  (and (ignore "@") (+ (or (range #\a #\z) (range #\A #\Z)))
39+
       (* (and "-" (+ (or (range #\a #\z) (range #\A #\Z) (range #\0 #\9)))))))
4040 
;; [19] 	INTEGER 	::= 	[+-]? [0-9]+
4141 
(define-peg-pattern integer all (and (? (or "+" "-")) (+ (range #\0 #\9))))
4242 
;; [20] 	DECIMAL 	::= 	[+-]? [0-9]* '.' [0-9]+