crook

cmsc430 · Nov 14, 2024 · b26f952 · b26f952
1 parent f7106b6
commit b26f952
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/jig/parse.rkt b/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))]

diff --git a/loot/ast.rkt b/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)

diff --git a/loot/interp.rkt b/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