Generated.

Author: dvanhorn

langs/abscond/ast.rkt

@@ -2,5 +2,5 @@
 (provide Lit)
 
 ;; type Expr = (Lit Integer)
-
 (struct Lit (i) #:prefab)
+

langs/abscond/compile.rkt

@@ -6,12 +6,12 @@
 (define rax 'rax)
 
 ;; Expr -> Asm
-(define (compile e)  
+(define (compile e)
   (prog (Global 'entry)
         (Label 'entry)
         (compile-e e)
-	(Ret)))
-	
+        (Ret)))
+
 ;; Expr -> Asm
 (define (compile-e e)
   (match e

langs/abscond/interp.rkt

@@ -7,4 +7,3 @@
   (match e
     [(Lit i) i]))
 
-

langs/abscond/parse.rkt

@@ -7,3 +7,4 @@
   (match s
     [(? exact-integer?) (Lit s)]
     [_ (error "Parse error")]))
+

langs/abscond/test/interp.rkt

@@ -2,6 +2,6 @@
 (require "../interp.rkt")
 (require "../parse.rkt")
 (require "test-runner.rkt")
- 
+
 (test (λ (e) (interp (parse e))))
 

langs/abscond/test/test-runner.rkt

@@ -7,4 +7,3 @@
     (check-equal? (run 7) 7)
     (check-equal? (run -8) -8)))
 
-