(period-irx (irregex "^\\."))
(redcode-irx (irregex "^;redcode\n"))
(name-start-irx (irregex "^;[ \t]*name "))
- (name-irx (irregex "^[a-zA-Z0-9]+"))
+ (name-irx (irregex "^[^\n]*"))
(author-start-irx (irregex "^;[ \t]*author "))
(author-irx (irregex "^[^\n]*"))
(comment-irx (irregex "^(;[^\n]*)?\n"))
(instruction-line)))
(define (name-line)
(if (accept-token name-start-irx)
- (cons 'name (string->symbol (accept-token name-irx #t)))
+ (cons 'name (string-trim (accept-token name-irx #t)))
#f))
(define (author-line)
(if (accept-token author-start-irx)