Skip to content
Browse files

test prog alts, use a closure now

  • Loading branch information...
1 parent 2b67137 commit bfd78969702fe7b6e9d34265645065aa4a83f5fe @jaz303 committed Jan 9, 2012
Showing with 4 additions and 3 deletions.
  1. +4 −3 test.lisp
View
7 test.lisp
@@ -8,11 +8,12 @@
(define foo 100)
(if #f
- (add 200)
- (add 100))
+ (pprint (add 200 200))
+ (pprint (add 100 100)))
(define add-10 (make-adder 10))
(define add-20 (make-adder 20))
+ (define add-foo (make-adder foo))
- (add-20 foo)
+ (pprint (add-foo 15))
)

0 comments on commit bfd7896

Please sign in to comment.
Something went wrong with that request. Please try again.