GOOF----LE-8-2.020 ] { 4 h� ] g guile� � g define-module*� � � g language� g elisp� g lexer� �
g filenameS� f language/elisp/lexer.scm� g importsS�
g ice-9� g regex�
� � � g exportsS� g get-lexer� g get-lexer/1� � g set-current-module� � � g error� g lexer-error� g set-char-bit� g eof-object?� g char=?� g is-char?� g
integer->char� g real-character� !g char-alphabetic?� "g
char->integer� #g char-upcase� $g add-control� %g read-char� &g
char-numeric?� 'g unread-char� (f invalid digit in escape-code� )g charcode-escape� *a �� +b �� ,t �� -n
�� .v �� /f �� 0r
�� 1e �� 2s �� 3d �� 4*+,-./0123
� 5g basic-escape-codes� 6A �� 7s �� 8H �� 9S �� :g assq-ref� ;g
get-character� <g peek-char� =f !expected - after control sequence� >g char>=?� ?g char<?� @g make-regexp� Af ^[+-]?[0-9]+\.?$� Bg
integer-regex� Cf 7^[+-]?([0-9]+\.?[0-9]*|[0-9]*\.?[0-9]+)(e[+-]?[0-9]+)?$� Dg float-regex� Eg string->char-set� Ff -+=*/_~!@$%^&:<>{}?.� Gg no-escape-punctuation� Hg list->string� Ig reverse� Jg regexp-exec� Kg integer� Lg float� Mg symbol� Ng char-set-contains?� Og get-symbol-or-number� Pg circular-ref� Qg circular-def� Rf !invalid circular marker character� Sg get-circular-marker� Tg
file-port?� Ug
port-filename� Vg port-line� Wg port-column� Xg set-source-property!� Yg filename� Zg line� [g column� \g eof� ]g char-whitespace?� ^g lex� _g character� `g string� ag function� bg
paren-open� cg paren-close� dg square-open� eg square-close� fg quote� gg backquote� hg unquote-splicing� if expected @ in unquote-splicing� jg unquote� kg
string-length� lf invalid character in input� mg string->symbol� ng inexact->exact� og string->number� pg integer?� qf expected integer� rg exact?� sf expected inexact float� tf wrong number/symbol type� ug dot� vg binary-ports� w
v � xg
eof-object� ywx � zwx �C 5 h�% H ]4
5 4 > "