Crook

.github/workflows/macos.yml

@@ -1,5 +1,5 @@
 on:
-  - push
+  - workflow_dispatch
 
 jobs:
   build-and-test:

jig/parse.rkt

@@ -24,9 +24,9 @@
 ;; S-Expr -> Expr
 (define (parse-e s)
   (match s
+    [(? datum?)               (Lit s)]
     ['eof                     (Eof)]
     [(? symbol?)              (Var s)]
-    [(? datum?)               (Lit s)]
     [(list 'quote (list))     (Lit '())]
     [(list (? op0? p0))       (Prim0 p0)]
     [(list (? op1? p1) e)     (Prim1 p1 (parse-e e))]

loot/ast.rkt

@@ -1,7 +1,8 @@
 #lang racket
 (provide Lit Prim0 Prim1 Prim2 Prim3 If Eof Begin
          Let Var Prog Defn App
-         Match Box Cons Conj Lam)
+         Match Box Cons Conj
+         Lam)
 
 ;; type Prog = (Prog (Listof Defn) Expr)
 (struct Prog (ds e) #:prefab)

loot/interp.rkt

@@ -113,7 +113,6 @@
      (match (interp-match-pat p v r)
        [#f (interp-match v ps es r ds)]
        [r  (interp-env e r ds)])]))
-
 ;; Pat Value Env -> [Maybe Env]
 (define (interp-match-pat p v r)
   (match p