Permalink
Browse files

Removed specifications for derived expression syntaxes that I do not …

…intend to support.
  • Loading branch information...
1 parent a6a0dc9 commit aa0ae25434f5576bd72a3edfaa941be112d99bbf @aarongough committed Mar 5, 2011
Showing with 0 additions and 219 deletions.
  1. +0 −5 flea-language-spec/test-cases/08-derived-expressions/02-cond/01-cond-single-clause.scm
  2. +0 −5 ...language-spec/test-cases/08-derived-expressions/02-cond/02-cond-single-clause-never-satisfied.scm
  3. +0 −6 flea-language-spec/test-cases/08-derived-expressions/02-cond/03-cond-two-clause-first.scm
  4. +0 −6 flea-language-spec/test-cases/08-derived-expressions/02-cond/03-cond-two-clause-second.scm
  5. +0 −10 flea-language-spec/test-cases/08-derived-expressions/02-cond/04-cond-n-clause.scm
  6. +0 −11 flea-language-spec/test-cases/08-derived-expressions/02-cond/05-cond-else.scm
  7. +0 −8 flea-language-spec/test-cases/08-derived-expressions/03-case/01-case-two-clause-first.scm
  8. +0 −8 flea-language-spec/test-cases/08-derived-expressions/03-case/02-case-two-clause-second.scm
  9. +0 −7 flea-language-spec/test-cases/08-derived-expressions/03-case/03-case-single-clause.scm
  10. +0 −6 ...language-spec/test-cases/08-derived-expressions/03-case/04-case-single-clause-never-satisfied.scm
  11. +0 −11 flea-language-spec/test-cases/08-derived-expressions/03-case/05-case-n-clause.scm
  12. +0 −12 flea-language-spec/test-cases/08-derived-expressions/03-case/06-case-else.scm
  13. +0 −5 flea-language-spec/test-cases/08-derived-expressions/04-and/01-empty-and.scm
  14. +0 −8 flea-language-spec/test-cases/08-derived-expressions/04-and/02-and-two-args.scm
  15. +0 −9 flea-language-spec/test-cases/08-derived-expressions/04-and/03-and-returns-last-result.scm
  16. +0 −6 flea-language-spec/test-cases/08-derived-expressions/05-or/01-or-all-false.scm
  17. +0 −6 flea-language-spec/test-cases/08-derived-expressions/05-or/02-or-single-true.scm
  18. +0 −9 flea-language-spec/test-cases/08-derived-expressions/05-or/03-returns-first-true-value.scm
  19. +0 −10 flea-language-spec/test-cases/08-derived-expressions/06-let/01-let-single-binding.scm
  20. +0 −11 flea-language-spec/test-cases/08-derived-expressions/06-let/02-let-two-bindings.scm
  21. +0 −15 flea-language-spec/test-cases/08-derived-expressions/06-let/03-let-n-bindings.scm
  22. +0 −12 flea-language-spec/test-cases/08-derived-expressions/06-let/04-nested-let.scm
  23. +0 −6 flea-language-spec/test-cases/08-derived-expressions/06-let/05-let-without-define.scm
  24. +0 −8 flea-language-spec/test-cases/08-derived-expressions/07-let-star/01-let-star.scm
  25. +0 −15 flea-language-spec/test-cases/08-derived-expressions/08-letrec/01-letrec.scm
  26. +0 −4 flea-language-spec/test-cases/08-derived-expressions/09-do/01-do.scm
@@ -1,5 +0,0 @@
-(cond ((equal? #t #t) (display "first")))
-
-----
-
-assert_output "first"
@@ -1,5 +0,0 @@
-(cond ((equal? #t #f) (display "first")))
-
-----
-
-assert_output ""
@@ -1,6 +0,0 @@
-(cond ((equal? #t #t) (display "first"))
- ((equal? #t #t) (display "second")))
-
-----
-
-assert_output "first"
@@ -1,6 +0,0 @@
-(cond ((equal? #t #f) (display "first"))
- ((equal? #t #t) (display "second")))
-
-----
-
-assert_output "second"
@@ -1,10 +0,0 @@
-(cond ((equal? #t #f) (display "first"))
- ((equal? #t #f) (display "second"))
- ((equal? #t #f) (display "third"))
- ((equal? #t #t) (display "fourth"))
- ((equal? #t #f) (display "fifth"))
- ((equal? #t #t) (display "sixth")))
-
-----
-
-assert_output "fourth"
@@ -1,11 +0,0 @@
-(cond ((equal? #t #f) (display "first"))
- ((equal? #t #f) (display "second"))
- ((equal? #t #f) (display "third"))
- ((equal? #t #f) (display "fourth"))
- ((equal? #t #f) (display "fifth"))
- ((equal? #t #f) (display "sixth"))
- (else (display "else")))
-
-----
-
-assert_output "else"
@@ -1,8 +0,0 @@
-(display
- (case (* 2 1)
- ((2 3 5 7) 'prime)
- ((1 4 6 8 9) 'composite)))
-
-----
-
-assert_output "prime"
@@ -1,8 +0,0 @@
-(display
- (case (* 2 3)
- ((2 3 5 7) 'prime)
- ((1 4 6 8 9) 'composite)))
-
-----
-
-assert_output "composite"
@@ -1,7 +0,0 @@
-(display
- (case (* 2 1)
- ((2 3 5 7) 'prime)))
-
-----
-
-assert_output "prime"
@@ -1,6 +0,0 @@
-(case (* 2 3)
- ((2 3 5 7) (display "prime")))
-
-----
-
-assert_output ""
@@ -1,11 +0,0 @@
-(display
- (case (* 2 2)
- ((1) 'one)
- ((2) 'two)
- ((3) 'three)
- ((4) 'four)
- ((5) 'five)))
-
-----
-
-assert_output "four"
@@ -1,12 +0,0 @@
-(display
- (case (* 2 5)
- ((1) 'one)
- ((2) 'two)
- ((3) 'three)
- ((4) 'four)
- ((5) 'five)
- (else "not found")))
-
-----
-
-assert_output "not found"
@@ -1,5 +0,0 @@
-(display (and))
-
-----
-
-assert_output "#t"
@@ -1,8 +0,0 @@
-(display
- (and
- (equal? #t #t)
- (equal? #t #f)))
-
-----
-
-assert_output "#f"
@@ -1,9 +0,0 @@
-(display
- (and
- (* 3 2)
- (* 2 2)
- (* 2 10)))
-
-----
-
-assert_output "20"
@@ -1,6 +0,0 @@
-(display
- (or #f #f #f))
-
-----
-
-assert_output "#f"
@@ -1,6 +0,0 @@
-(display
- (or #f #t #f))
-
-----
-
-assert_output "#t"
@@ -1,9 +0,0 @@
-(display
- (or
- #f
- (* 3 2)
- (* 9 2)))
-
-----
-
-assert_output "6"
@@ -1,10 +0,0 @@
-(define x 4)
-
-(let ((x 2))
- (display (* x x)))
-
-(display (* x x))
-
-----
-
-assert_output "416"
@@ -1,11 +0,0 @@
-(define x 4)
-(define y 10)
-
-(let ((x 2) (y 3))
- (display (* x y)))
-
-(display (* x y))
-
-----
-
-assert_output "640"
@@ -1,15 +0,0 @@
-(define x 4)
-(define y 10)
-(define z 2)
-(define a 3)
-
-(let ((x 2) (y 3) (z 10) (a 20))
- (display (* x y))
- (display (* z a)))
-
-(display (* x y))
-(display (* z a))
-
-----
-
-assert_output "6200406"
@@ -1,12 +0,0 @@
-(define x 4)
-
-(let ((x 2))
- (display (* x x))
- (let ((x 6))
- (display (* x x))))
-
-(display (* x x))
-
-----
-
-assert_output "43616"
@@ -1,6 +0,0 @@
-(let ((x 2) (y 4))
- (display (* x y)))
-
-----
-
-assert_output "8"
@@ -1,8 +0,0 @@
-(let ((x 2) (y 3))
- (let* ((x 7)
- (z (+ x y)))
- (display (* z x))))
-
-----
-
-assert_output "70"
@@ -1,15 +0,0 @@
-(letrec ((even?
- (lambda (n)
- (if (= n 0)
- #t
- (odd? (- n 1)))))
- (odd?
- (lambda (n)
- (if (= n 0)
- #f
- (even? (- n 1))))))
- (display (even? 88)))
-
-----
-
-assert_output "#t"
@@ -1,4 +0,0 @@
-
-----
-
-flunk

0 comments on commit aa0ae25

Please sign in to comment.