Removes a test case for a form that is invalid in R7RS

Author: codeZeilen

ports/lispy-tests2.json

@@ -15,11 +15,6 @@
     {"input": "(if 1 2)", "expected": 2},
     {"input": "(if (= 3 4) 2)", "expected": null},
     {"input": "(begin (define x 1) (set! x (+ x 1)) (+ x 1))", "expected": 3},
-    {"input": "(define ((account bal) amt) (set! bal (+ bal amt)) bal)", "expected": null},
-    {"input": "(define a1 (account 100))", "expected": null},
-    {"input": "(a1 0)", "expected": 100},
-    {"input": "(a1 10)", "expected": 110},
-    {"input": "(a1 10)", "expected": 120},
     {"input": "(define (newton guess function derivative epsilon)\n(define guess2 (- guess (/ (function guess) (derivative guess))))\n(if (< (abs (- guess guess2)) epsilon) guess2\n(newton guess2 function derivative epsilon)))", "expected": null},
     {"input": "(define (square-root a)\n(newton 1 (lambda (x) (- (* x x) a)) (lambda (x) (* 2 x)) 1e-8))", "expected": null},
     {"input": "(> (square-root 200.) 14.14213)", "expected": true},