crook

cmsc430 · Nov 14, 2024 · da156f2 · da156f2
1 parent 221b5f5
commit da156f2
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 6 deletions.
diff --git a/iniquity/interp.rkt b/iniquity/interp.rkt
@@ -71,7 +71,7 @@
            ; check arity matches
            (if (= (length xs) (length vs))
                (interp-env e (zip xs vs) ds)
-               'err)])])]))       
+               'err)])])]))
 
 ;; (Listof Expr) REnv Defns -> (Listof Value) | 'err
 (define (interp-env* es r ds)

diff --git a/jig/interp.rkt b/jig/interp.rkt
@@ -71,7 +71,7 @@
            ; check arity matches
            (if (= (length xs) (length vs))
                (interp-env e (zip xs vs) ds)
-               'err)])])]))       
+               'err)])])]))
 
 ;; (Listof Expr) REnv Defns -> (Listof Value) | 'err
 (define (interp-env* es r ds)

diff --git a/knock/interp.rkt b/knock/interp.rkt
@@ -72,12 +72,12 @@
            ; check arity matches
            (if (= (length xs) (length vs))
                (interp-env e (zip xs vs) ds)
-               'err)])])]     
+               'err)])])]
     [(Match e ps es)
      (match (interp-env e r ds)
        ['err 'err]
        [v
-        (interp-match v ps es r ds)])]))       
+        (interp-match v ps es r ds)])]))
 
 ;; (Listof Expr) REnv Defns -> (Listof Value) | 'err
 (define (interp-env* es r ds)

diff --git a/loot/interp.rkt b/loot/interp.rkt
@@ -73,7 +73,7 @@
           [vs
            (if (procedure? f)
                (apply f vs)
-               'err)])])]     
+               'err)])])]
     [(Match e ps es)
      (match (interp-env e r ds)
        ['err 'err]
@@ -84,7 +84,7 @@
        ; check arity matches
        (if (= (length xs) (length vs))
            (interp-env e (append (zip xs vs) r) ds)
-           'err))]))       
+           'err))]))
 
 ;; (Listof Expr) REnv Defns -> (Listof Value) | 'err
 (define (interp-env* es r ds)