Update .travis.yml

.travis.yml

@@ -1,7 +1,7 @@
 language: racket
 
 env:
- - RACKET_VERSION=HEAD
+ - RACKET_VERSION=6.1
 
 before_install:
 - cd ..

afl/tests/test-afl-at-exp-racket.rkt

@@ -1,21 +0,0 @@
-#lang afl at-exp racket/base
-(require rackunit)
-(check-equal? (map #λ(+ % 1) '(1 2 3))
-              '(2 3 4))
-(check-equal? (map #λ(+ % %2) '(1 2 3) '(1 2 3))
-              '(2 4 6))
-(check-equal? (#λ(apply list* % %&) 1 '(2 3))
-              '(1 2 3))
-(check-equal? (#λ(* 1/2 %#:m (* %#:v %#:v)) #:m 2 #:v 1)
-              1)
-(check-equal? (let ([x (#λ"I am x")])
-                (#λx))
-              "I am x")
-(check-equal? (#λ(begin (set! % "%") %1) "%1")
-              "%")
-(check-equal? (map #λ@+[% 1] '(1 2 3))
-              '(2 3 4))
-(check-equal? @#λ(+ % 1)[1] 
-              2)
-(check-equal? @#λ@+[% 1][1]
-              2)

afl/tests/test-afl-scribble.rkt

@@ -1,27 +0,0 @@
-#lang afl scribble/base
-@(require rackunit)
-@(check-equal? @#λ@title{@%}{This is a Title}
-              @title{This is a Title})
-#λ
-@(check-equal? (map #λ(+ % 1) '(1 2 3))
-               '(2 3 4))
-@(check-equal? (map #λ(+ % %2) '(1 2 3) '(1 2 3))
-               '(2 4 6))
-@(check-equal? (#λ(apply list* % %&) 1 '(2 3))
-               '(1 2 3))
-@(check-equal? (#λ(* 1/2 %#:m (* %#:v %#:v)) #:m 2 #:v 1)
-               1)
-@(check-equal? (let ([x (#λ"I am x")])
-                 (#λx))
-               "I am x")
-@(check-equal? (#λ(begin (set! % "%") %1) "%1")
-               "%")
-@(check-equal? (map #λ@+[% 1] '(1 2 3))
-               '(2 3 4))
-@(check-equal? @#λ(+ % 1)[1] 
-               2)
-@(check-equal? @#λ@+[% 1][1]
-               2)
-@(check-equal? @#λ%{#λ}
-               "#λ")
-#λ