mods/src/em_scheme_scan.xrl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

Definitions.

AtomChar = [^\s\r\n\(\)]
WS       = [\s\r\n]

Rules.

\(     : {token, {'(', YYline}}.
\)     : {token, {')', YYline}}.

lambda : {token, {special, YYline}}.
define : {token, {special, YYline}}.
let    : {token, {special, YYline}}.

({AtomChar}{AtomChar}*) : {token, {atom, YYline, YYtext}}.
%% Ignore
{WS} : skip_token.