skeem 0.2.15 → 0.2.16

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 182cf920c536bb07dd813c34eae74af24181813a9d96fdd39c786cc28043f135
-  data.tar.gz: ba4cf5ce2df8d1708f3504e57a14b62734146f3c8a47043cf2d5ffdf591e35d6
+  metadata.gz: c6b187bafcc1084e3c45a68f552bb5756b8dc51338f5241fa64ad5f60f1f94c7
+  data.tar.gz: f6925b7497ab8a2ab678c7b5483907b374caed4f7a9b00e1d22d3d53c141191c
 SHA512:
-  metadata.gz: bd03dfab05470ee167464113844c3a8b0b3174f58cd4607034f417218b91ec024e26aff941ac78e750be30ff216d18be97171b030c3f3055803443f421ad6c19
-  data.tar.gz: 2cd279dca2e9202e6a924373a01c1a49e493ea2379131284639b07977714c72df751574a8252231d15182dc6b23d55206aaa11be062502b4840a5d9a27143199
+  metadata.gz: b8e2cd533cd3e1661f1c205ab87179e8d1a48a1e23d5c5867c6106f54b56fe076fda0ae2eaa1a28045633dc4e3eb80ec891abf8dd3f03f6698e53c5e308173be
+  data.tar.gz: 68e3b66e4821062f9792e37b9b2d89134e10a21fcb6f0e3fc1a591243a1be8930cb5a18fcc9add86850a47cbfa9be4f7c2a2239bb94e3f187082efb2a2392412

data/.rubocop.yml

@@ -5,6 +5,9 @@ AllCops:
 Layout/CaseIndentation:
   Enabled: false
 
+Layout/ClosingHeredocIndentation:
+  Enabled: false
+
 Layout/CommentIndentation:
   Enabled: false
 
@@ -13,7 +16,7 @@ Layout/ElseAlignment:
 
 Layout/EmptyLines:
   Enabled: false
-  
+
 Layout/EndAlignment:
   Enabled: false
 
@@ -26,10 +29,10 @@ Layout/IndentationWidth:
 
 Layout/IndentationConsistency:
   Enabled: true
-  
+
 Layout/IndentHeredoc:
   Enabled: false
-  
+
 Layout/MultilineHashBraceLayout:
   Enabled: true
 
@@ -38,10 +41,10 @@ Layout/SpaceAroundOperators:
 
 Layout/SpaceInsideParens:
   Enabled: true
-  
+
 Layout/Tab:
   Enabled: true
-  
+
 Layout/TrailingBlankLines:
   Enabled: true
 
@@ -100,10 +103,10 @@ Naming/ConstantName:
 
 Naming/ClassAndModuleCamelCase:
   Enabled: false
-  
+
 Naming/UncommunicativeBlockParamName:
   Enabled: true
-  
+
 Naming/UncommunicativeMethodParamName:
   Enabled: false
 
@@ -167,12 +170,15 @@ Style/InverseMethods:
 Style/Next:
   Enabled: false
 
+Style/NumericLiterals:
+  Enabled: false
+
 Style/RaiseArgs:
   Enabled: true
 
 Style/RedundantReturn:
   Enabled: false
-  
+
 Style/RedundantSelf:
   Enabled: true
 
@@ -181,15 +187,15 @@ Style/RegexpLiteral:
 
 Style/PercentLiteralDelimiters:
   Enabled: false
-  
+
 Style/StderrPuts:
-  Enabled: false  
+  Enabled: false
 
 Style/StringLiterals:
   Enabled: true
 
 Style/TernaryParentheses:
   Enabled: false
-  
+
 Style/UnlessElse:
   Enabled: false

data/CHANGELOG.md

@@ -1,3 +1,8 @@
+## [0.2.16] - 2019-08-18
+- Code refactoring to use string frozen magic comments (as a consequence, srl_ruby runs only on Rubies 2.3 or newer).  
+- Code restyling to please rubocop 0.7.40. 
+
+
 ## [0.2.15] - 2019-07-02
 - Added a basic command-line and console interface for Skeem interpreter.
 - Added procedures: `display!`, `newline`, `make-list`

data/Gemfile

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 source 'https://rubygems.org'
 
 git_source(:github) { |repo_name| "https://github.com/#{repo_name}" }

data/README.md

@@ -32,7 +32,8 @@ If you're not familiar to Scheme, the section [About Scheme](#about-scheme) cont
 
 ## Usage
 Once the gem is installed, the `skeem` executable can be used.
-It allows to run the interpreter from the command line.
+It allows to run the interpreter from a REPL console or from the command line.
+Another way to interact with the Skeem interpreter is to embed it in your Ruby code.
 
 ### Launching a REPL session
 To start a REPL (Read-Eval-Print-Loop) session, just type:
@@ -42,7 +43,7 @@ To start a REPL (Read-Eval-Print-Loop) session, just type:
 
 Skeem displays a greeting, a prompt and then waits for your input:
 ```
-Welcome to Skeem 0.2.15.
+Welcome to Skeem 0.2.16.
 >
 ```
 

data/Rakefile

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 require 'bundler/gem_tasks'
 require 'rspec/core/rake_task'
 

data/appveyor.yml

@@ -1,17 +1,16 @@
 version: '{build}'
-max_jobs: 3
+max_jobs: 5
 environment:
   matrix:
+  - Ruby_version: 26-x64  
   - Ruby_version: 25-x64
   - Ruby_version: 24-x64
   - Ruby_version: 23-x64
+  - Ruby_version: 26  
   - Ruby_version: 25
   - Ruby_version: 24
   - Ruby_version: 23
 
-# These are failing
-#  - Ruby_version: 26
-#  - Ruby_version: 26-x64
 
 install:
   - set PATH=C:\Ruby%Ruby_version%\bin;%PATH%

data/bin/skeem

@@ -1,20 +1,22 @@
 #!/usr/bin/env ruby
+# frozen_string_literal: true
 
 require 'skeem'
 
 class SkeemREPL
   attr_reader :interpreter
 
-  def initialize()
+  def initialize
     @interpreter = Skeem::Interpreter.new
   end
 
   def run_session
-    puts "Welcome to Skeem #{Skeem::VERSION}."  
+    puts "Welcome to Skeem #{Skeem::VERSION}."
     loop do
       print '> '
       input = gets.chomp.strip
-      break if input == '(quit)' || input == '(exit)'
+      break if %w[(quit) (exit)].include?(input)
+
       process_input(input)
     end
   end
@@ -22,15 +24,13 @@ class SkeemREPL
   def run_file(aFilename)
     if File.exist?(aFilename)
       valid_fname = aFilename
-    else # Retry by adding extension...
-      if File.extname(aFilename).empty?
-        if File.exist?(aFilename + '.skm')
-          valid_fname = aFilename + '.skm'
-        elsif File.exist?(aFilename + '.scm')
-          valid_fname = aFilename + '.scm'
-        else
-          valid_fname = nil
-        end
+    elsif File.extname(aFilename).empty? # Retry by adding extension...
+      if File.exist?(aFilename + '.skm')
+        valid_fname = aFilename + '.skm'
+      elsif File.exist?(aFilename + '.scm')
+        valid_fname = aFilename + '.scm'
+      else
+        valid_fname = nil
       end
     end
 
@@ -43,8 +43,8 @@ class SkeemREPL
   def process_input(input)
     begin
       ptree = interpreter.parse(input)
-    rescue StandardError => exc
-      $stderr.puts exc.message
+    rescue StandardError => e
+      $stderr.puts e.message
       return
     end
 
@@ -69,4 +69,4 @@ if ARGV.empty?
   djinn.run_session
 else
   djinn.run_file(ARGV[0])
-end
+end

data/lib/skeem.rb

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 # File: skeem.rb
 # This file acts as a jumping-off point for loading dependencies expected
 # for a Skeem client.

data/lib/skeem/datum_dsl.rb

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 require_relative 'skm_simple_datum'
 require_relative 'skm_compound_datum'
 require_relative 'skm_pair'
@@ -19,6 +21,7 @@ module Skeem
         else
           raise StandardError, aBoolean.inspect
       end
+      result
     end
 
     def integer(aLiteral)
@@ -32,6 +35,7 @@ module Skeem
         else
           raise StandardError, aLiteral.inspect
       end
+      result
     end
 
     def rational(aLiteral)
@@ -45,6 +49,7 @@ module Skeem
         else
           raise StandardError, aLiteral.inspect
       end
+      result
     end
 
     def real(aLiteral)
@@ -58,6 +63,7 @@ module Skeem
         else
           raise StandardError, aLiteral.inspect
       end
+      result
     end
 
     def char(aLiteral)
@@ -75,6 +81,7 @@ module Skeem
         else
           raise StandardError, aLiteral.inspect
       end
+      result
     end
 
     def string(aLiteral)
@@ -88,6 +95,7 @@ module Skeem
         else
           SkmString.create(aLiteral.to_s)
       end
+      result
     end
 
     def identifier(aLiteral)
@@ -101,6 +109,7 @@ module Skeem
         else
           raise StandardError, aLiteral.inspect
       end
+      result
     end
 
     alias symbol identifier
@@ -150,7 +159,7 @@ module Skeem
           SkmBoolean.create(aLiteral)
         when String
           parse_literal(aLiteral)
-        when SkmPair  # Special case: not a PORO literal
+        when SkmPair # Special case: not a PORO literal
           # One assumes that a Skeem list contains only Skeem datum objects
           SkmPair.create_from_a(aLiteral.to_a)
         when SkmUndefined
@@ -158,6 +167,7 @@ module Skeem
         else
           raise StandardError, aLiteral.inspect
         end
+      result
     end
 
     private
@@ -177,6 +187,5 @@ module Skeem
         string(aLiteral)
       end
     end
-
   end # module
-end # module
+end # module

data/lib/skeem/element_visitor.rb

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 module Skeem
   class SkmElementVisitor
     # Link to the root element to visit
@@ -12,6 +14,7 @@ module Skeem
     # @param aRoot [SkmElement] the parse tree to visit.
     def initialize(aRoot)
       raise StandardError if aRoot.nil?
+
       @root = aRoot
       @subscribers = []
     end
@@ -57,7 +60,6 @@ module Skeem
       broadcast(:after_empty_list, anEmptyList)
     end
 
-
     def visit_pair(aPair)
       broadcast(:before_pair, aPair)
       traverse_car_cdr(aPair)
@@ -110,8 +112,9 @@ module Skeem
     def broadcast(msg, *args)
       subscribers.each do |subscr|
         next unless subscr.respond_to?(msg) || subscr.respond_to?(:accept_all)
+
         subscr.send(msg, runtime, *args)
       end
     end
   end # class
-end # module
+end # module

data/lib/skeem/grammar.rb

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 # Grammar for Skeem (a subset of Scheme language)
 require 'rley' # Load the gem
 
@@ -11,7 +13,7 @@ module Skeem
     # Delimiters, separators...
     add_terminals('APOSTROPHE', 'COMMA', 'COMMA_AT_SIGN')
     add_terminals('GRAVE_ACCENT', 'LPAREN', 'RPAREN')
-    add_terminals('PERIOD', 'ARROW')
+    add_terminals('PERIOD', 'UNDERSCORE', 'ARROW', 'ELLIPSIS')
     add_terminals('VECTOR_BEGIN')
 
     # Literal values...
@@ -19,9 +21,9 @@ module Skeem
     add_terminals('CHAR', 'STRING_LIT', 'IDENTIFIER')
 
     # Keywords...
-    add_terminals('BEGIN', 'COND', 'DEFINE', 'DO', 'ELSE')
-    add_terminals('IF', 'LAMBDA', 'LET', 'LET*')
-    add_terminals('QUOTE', 'QUASIQUOTE', 'SET!')
+    add_terminals('BEGIN', 'COND', 'DEFINE', 'DEFINE-SYNTAX', 'DO')
+    add_terminals('ELSE', 'IF', 'INCLUDE', 'LAMBDA', 'LET', 'LET*')
+    add_terminals('QUOTE', 'QUASIQUOTE', 'SET!', 'SYNTAX-RULES')
     add_terminals('UNQUOTE', 'UNQUOTE-SPLICING')
 
     rule('program' => 'cmd_or_def_plus').as 'main'
@@ -33,6 +35,7 @@ module Skeem
     rule 'command' => 'expression'
     rule('definition' => 'LPAREN DEFINE IDENTIFIER expression RPAREN').as 'definition'
     rule('definition' => 'LPAREN DEFINE LPAREN IDENTIFIER def_formals RPAREN body RPAREN').as 'alt_definition'
+    rule('definition' => 'syntax_definition')
     rule('definition' => 'LPAREN BEGIN definition_star RPAREN').as 'definitions_within_begin'
     rule('expression' => 'IDENTIFIER').as 'variable_reference'
     rule 'expression' => 'literal'
@@ -41,8 +44,9 @@ module Skeem
     rule 'expression' => 'conditional'
     rule 'expression' => 'assignment'
     rule 'expression' => 'derived_expression'
+    rule 'expression' => 'includer'
     rule 'literal' => 'quotation'
-    rule 'literal' => 'self-evaluating'   
+    rule 'literal' => 'self-evaluating'
     rule('quotation' => 'APOSTROPHE datum').as 'quotation_short'
     rule('quotation' => 'LPAREN QUOTE datum RPAREN').as 'quotation'
     rule 'self-evaluating' => 'BOOLEAN'
@@ -64,8 +68,8 @@ module Skeem
     rule('vector' => 'VECTOR_BEGIN datum_star RPAREN').as 'vector'
     rule('datum_plus' => 'datum_plus datum').as 'multiple_datums'
     rule('datum_plus' => 'datum').as 'last_datum'
-    rule('datum_star' => 'datum_star datum').as 'datum_star'
-    rule('datum_star' => []).as 'no_datum_yet'
+    rule('datum_star' => 'datum_star datum').as 'star_default'
+    rule('datum_star' => []).as 'star_base' ## 'no_datum_yet'
     rule 'symbol' => 'IDENTIFIER'
     rule('procedure_call' => 'LPAREN operator RPAREN').as 'proc_call_nullary'
     rule('procedure_call' => 'LPAREN operator operand_plus RPAREN').as 'proc_call_args'
@@ -79,16 +83,17 @@ module Skeem
     rule('formals' => 'LPAREN identifier_star RPAREN').as 'fixed_arity_formals'
     rule('formals' => 'IDENTIFIER').as 'variadic_formals'
     rule('formals' => 'LPAREN identifier_plus PERIOD IDENTIFIER RPAREN').as 'dotted_formals'
-    rule('identifier_star' => 'identifier_star IDENTIFIER').as 'identifier_star'
-    rule('identifier_star' => []).as 'no_identifier_yet'
+    rule('syntax_definition' => 'LPAREN DEFINE-SYNTAX keyword transformer_spec RPAREN').as 'syntax_definition'
+    rule('identifier_star' => 'identifier_star IDENTIFIER').as 'star_default'
+    rule('identifier_star' => []).as 'star_base' ## 'no_identifier_yet'
     rule('identifier_plus' => 'identifier_plus IDENTIFIER').as 'multiple_identifiers'
     rule('identifier_plus' => 'IDENTIFIER').as 'last_identifier'
     rule('body' => 'definition_star sequence').as 'body'
-    rule('definition_star' => 'definition_star definition').as 'definition_star'
-    rule('definition_star' => []).as 'no_definition_yet'
+    rule('definition_star' => 'definition_star definition').as 'star_default'
+    rule('definition_star' => []).as 'star_base' ## 'no_definition_yet'
     rule('sequence' => 'command_star expression').as 'sequence'
-    rule('command_star' => 'command_star command').as 'multiple_commands'
-    rule('command_star' => []).as 'no_command_yet'
+    rule('command_star' => 'command_star command').as 'star_default'
+    rule('command_star' => []).as 'star_base' ## 'no_command_yet'
     rule('conditional' => 'LPAREN IF test consequent alternate RPAREN').as 'conditional'
     rule 'test' => 'expression'
     rule 'consequent' => 'expression'
@@ -101,13 +106,15 @@ module Skeem
     rule('derived_expression' => 'LPAREN COND cond_clause_plus RPAREN').as 'cond_form'
     rule('derived_expression' => 'LPAREN COND cond_clause_star LPAREN ELSE sequence RPAREN RPAREN').as 'cond_else_form'
     rule('derived_expression' => 'LPAREN LET LPAREN binding_spec_star RPAREN body RPAREN').as 'short_let_form'
+    # TODO: implement "named let"
+    rule('derived_expression' => 'LPAREN LET IDENTIFIER LPAREN binding_spec_star RPAREN body RPAREN') # .as 'named_form'
     rule('derived_expression' => 'LPAREN LET* LPAREN binding_spec_star RPAREN body RPAREN').as 'let_star_form'
 
-    # As the R7RS grammar is too restrictive, 
+    # As the R7RS grammar is too restrictive,
     # the next rule was made more general than its standard counterpart
     rule('derived_expression' => 'LPAREN BEGIN body RPAREN').as 'begin_expression'
     do_syntax = <<-END_SYNTAX
-    LPAREN DO LPAREN iteration_spec_star RPAREN 
+    LPAREN DO LPAREN iteration_spec_star RPAREN
       LPAREN test do_result RPAREN
       command_star RPAREN
 END_SYNTAX
@@ -115,25 +122,29 @@ END_SYNTAX
     rule 'derived_expression' => 'quasiquotation'
     rule('cond_clause_plus' => 'cond_clause_plus cond_clause').as 'multiple_cond_clauses'
     rule('cond_clause_plus' => 'cond_clause').as 'last_cond_clauses'
-    rule('cond_clause_star' => 'cond_clause_star cond_clause').as 'cond_clauses_star'
-    rule('cond_clause_star' => []).as 'last_cond_clauses_star'
+    rule('cond_clause_star' => 'cond_clause_star cond_clause').as 'star_default'
+    rule('cond_clause_star' => []).as 'star_base' ## 'last_cond_clauses_star'
     rule('cond_clause' => 'LPAREN test sequence RPAREN').as 'cond_clause'
     rule('cond_clause' => 'LPAREN test RPAREN')
     rule('cond_clause' => 'LPAREN test ARROW recipient RPAREN').as 'cond_arrow_clause'
     rule('recipient' => 'expression')
     rule('quasiquotation' => 'LPAREN QUASIQUOTE qq_template RPAREN').as 'quasiquotation'
     rule('quasiquotation' => 'GRAVE_ACCENT qq_template').as 'quasiquotation_short'
-    rule('binding_spec_star' => 'binding_spec_star binding_spec').as 'multiple_binding_specs'
-    rule('binding_spec_star' => []).as 'no_binding_spec_yet'
+    rule('binding_spec_star' => 'binding_spec_star binding_spec').as 'star_default'
+    rule('binding_spec_star' => []).as 'star_base' ## 'no_binding_spec_yet'
     rule('binding_spec' => 'LPAREN IDENTIFIER expression RPAREN').as 'binding_spec'
-    rule('iteration_spec_star' => 'iteration_spec_star iteration_spec').as 'multiple_iter_specs'
-    rule('iteration_spec_star' => []).as 'no_iter_spec_yet'
+    rule('iteration_spec_star' => 'iteration_spec_star iteration_spec').as 'star_default'
+    rule('iteration_spec_star' => []).as 'star_base' ## 'no_iter_spec_yet'
     rule('iteration_spec' => 'LPAREN IDENTIFIER init step RPAREN').as 'iteration_spec_long'
     rule('iteration_spec' => 'LPAREN IDENTIFIER init RPAREN').as 'iteration_spec_short'
     rule('init' => 'expression')
     rule('step' => 'expression')
     rule 'do_result' => 'sequence'
-    rule('do_result' => []).as 'empty_do_result'
+    rule('do_result' => []).as 'star_base' ## 'empty_do_result'
+    rule('keyword' => 'IDENTIFIER')
+    rule('includer' => 'LPAREN INCLUDE string_plus RPAREN').as 'include'
+    rule('string_plus' => 'string_plus STRING_LIT').as 'multiple_string'
+    rule('string_plus' => 'STRING_LIT').as 'last_single_string'
     rule 'qq_template' => 'simple_datum'
     rule 'qq_template' => 'list_qq_template'
     rule 'qq_template' => 'vector_qq_template'
@@ -144,14 +155,65 @@ END_SYNTAX
     rule('vector_qq_template' => 'VECTOR_BEGIN qq_template_or_splice_star RPAREN').as 'vector_qq'
     rule('unquotation' => 'COMMA qq_template').as 'unquotation_short'
     rule 'unquotation' => 'LPAREN UNQUOTE qq_template RPAREN'
-    rule('qq_template_or_splice_star' => 'qq_template_or_splice_star qq_template_or_splice').as 'multiple_template_splice'
-    rule('qq_template_or_splice_star' => []).as 'no_template_splice_yet'
+    rule('qq_template_or_splice_star' => 'qq_template_or_splice_star qq_template_or_splice').as 'star_default'
+    rule('qq_template_or_splice_star' => []).as 'star_base' ## 'no_template_splice_yet'
     rule 'qq_template_or_splice_plus' => 'qq_template_or_splice_plus qq_template_or_splice'
     rule 'qq_template_or_splice_plus' => 'qq_template_or_splice'
     rule 'qq_template_or_splice' => 'qq_template'
     rule 'qq_template_or_splice' => 'splicing_unquotation'
     rule 'splicing_unquotation' => 'COMMA_AT_SIGN qq_template'
     rule 'splicing_unquotation' => 'LPAREN UNQUOTE-SPLICING qq_template RPAREN'
+    rule('transformer_spec' => 'LPAREN SYNTAX-RULES LPAREN identifier_star RPAREN syntax_rule_star RPAREN').as 'transformer_syntax'
+    rule('transformer_spec' => 'LPAREN SYNTAX-RULES IDENTIFIER LPAREN identifier_star RPAREN syntax_rule_star RPAREN')
+    rule('syntax_rule_star' => 'syntax_rule_star syntax_rule').as 'star_default'
+    rule('syntax_rule_star' => []).as 'star_base'
+    rule('syntax_rule' => 'LPAREN pattern template RPAREN').as 'syntax_rule'
+    rule('pattern' => 'pattern_identifier')
+    rule('pattern' =>  'UNDERSCORE')
+    rule('pattern' =>  'LPAREN pattern_star RPAREN')
+    rule('pattern' =>  'LPAREN pattern_plus PERIOD pattern RPAREN')
+    rule('pattern' =>  'LPAREN pattern_plus ELLIPSIS pattern_star RPAREN')
+    rule('pattern' =>  'LPAREN pattern_plus ELLIPSIS pattern_star PERIOD pattern RPAREN')
+    rule('pattern' =>  'VECTOR_BEGIN pattern_star RPAREN')
+    rule('pattern' =>  'VECTOR_BEGIN pattern_plus ELLIPSIS pattern_star RPAREN')
+    rule('pattern' =>  'pattern_datum')
+    rule('pattern_star' => 'pattern_star pattern').as 'star_default'
+    rule('pattern_star' => []).as 'star_base'
+    rule('pattern_plus' => 'pattern_plus pattern')
+    rule('pattern_plus' => 'pattern')
+    rule('pattern_datum' => 'STRING_LIT')
+    rule('pattern_datum' => 'CHAR')
+    rule('pattern_datum' => 'BOOLEAN')
+    rule('pattern_datum' => 'number')
+    # rule('pattern_datum' => 'bytevector')
+    rule('template' => 'pattern_identifier')
+    rule('template' => 'LPAREN template_element_star RPAREN')
+    rule('template' => 'LPAREN template_element_plus PERIOD template RPAREN')
+    rule('template' =>  'VECTOR_BEGIN template_element_star RPAREN')
+    rule('template' =>  'template_datum')
+    rule('template_element_star' => 'template_element_star template_element').as 'star_default'
+    rule('template_element_star' => []).as 'star_base'
+    rule('template_element_plus' => 'template_element_plus template_element')
+    rule('template_element_plus' => 'template_element')
+    rule('template_element' =>  'template')
+    rule('template_element' =>  'template ELLIPSIS')
+    rule('template_datum' =>  'pattern_datum')
+    rule('pattern_identifier' => 'IDENTIFIER')
+    # Ugly: specailized production rule per keyword...
+    rule('pattern_identifier' => 'BEGIN')
+    rule('pattern_identifier' => 'COND')
+    rule('pattern_identifier' => 'DEFINE')
+    rule('pattern_identifier' => 'ELSE')
+    rule('pattern_identifier' => 'IF')
+    rule('pattern_identifier' => 'INCLUDE')
+    rule('pattern_identifier' => 'LAMBDA')
+    rule('pattern_identifier' => 'LET')
+    rule('pattern_identifier' => 'LET*')
+    rule('pattern_identifier' => 'QUOTE')
+    rule('pattern_identifier' => 'QUASIQUOTE')
+    rule('pattern_identifier' => 'SET!')
+    rule('pattern_identifier' => 'UNQUOTE')
+    rule('pattern_identifier' => 'UNQUOTE-SPLICING')
   end
 
   # And now build the grammar and make it accessible via a global constant