k0f1sh

;; generate-table

(require 's)
(require 'seq)
(require 'subr-x)

(defun gentbl-get-table-header (table-list)
  (car table-list))

(defun gentbl-swap (tl)

k0f1sh

(use-modules (ice-9 peg))

(define-peg-string-patterns
  "True <-- 'true'
False <-- 'false'
Null <-- 'null'
WS < (' ' / '\n' / '\r' / '\t')*
Number <-- Minus? IntegralPart FractionalPart? ExponentPart?
Minus <- '-'
IntegralPart <- '0' / [1-9] [0-9]*

k0f1sh

((lambda (interpret)
   ;; code
   (interpret '((lambda (interpret)
                  ;; code
                  (interpret '((lambda (a b) ((lambda (c d) (cons c d)) a b)) 1 2))
                  )
                ((lambda (primitive-environment new-env lookup assign)
                   ((lambda (exec)
                      (lambda (exp)
                        (exec exp primitive-environment)))