Data update

Task/Classes/Scheme/classes.scm

@@ -1,3 +1,4 @@
+(define (make-account balance)
   (define (withdraw amount)
     (if (>= balance amount)
         (begin (set! balance (- balance amount))
@@ -12,3 +13,13 @@
           (else (error "Unknown request -- MAKE-ACCOUNT"
                        m))))
   dispatch)
+
+(define acc (make-account 100))
+((acc 'withdraw) 50)
+50
+((acc 'withdraw) 60)
+"Insufficient funds"
+((acc 'deposit) 40)
+90
+((acc 'withdraw) 60)
+30