felix/slime
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Getting the manual going

Browse Source
This commit is contained in:
Felix Brendel
2019-05-16 16:52:37 +02:00
parent fb7f3a00c9
commit 03a2c81aa5
8 changed files with 598 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/tests/lexical_scope.slime.expanded
+7 -7
View File
@@ -1,18 +1,18 @@
(define (make-counter) (let ((var 0.000000)) (lambda () (mutate var (+ 1.000000 var)) var)))
(define (make-counter) (let ((var 0)) (lambda () (mutate var (+ 1 var)) var)))
(define counter1 (make-counter))
(assert (= (counter1) 1.000000))
(assert (= (counter1) 1))
(define counter2 (make-counter))
(assert (= (counter2) 1.000000))
(assert (= (counter2) 1))
(assert (= (counter2) 2.000000))
(assert (= (counter2) 2))
(assert (= (counter1) 2.000000))
(assert (= (counter1) 2))
(assert (= (counter1) 3.000000))
(assert (= (counter1) 3))
(assert (= (counter2) 3.000000))
(assert (= (counter2) 3))