This commit is contained in:
FelixBrendel
2019-12-04 11:55:40 +01:00
parent 28ab850bee
commit 667989e373
39 changed files with 2010 additions and 1273 deletions
+1 -2
View File
@@ -1,4 +1,3 @@
(define a 10)
(define (get-a-1)
a)
(define (get-a-1) a)
+1 -2
View File
@@ -4,5 +4,4 @@
(define (set-a-2 s)
(set! a s))
(define (get-a-2)
a)
(define (get-a-2) a)
+10
View File
@@ -1,17 +1,27 @@
(import "tests/import1.slime")
(print)
(print ">" a)
(assert (= a 10))
(print ">" (get-a-1))
(assert (= (get-a-1) 10))
(import "tests/import2.slime")
(print ">" a)
(assert (= a 10))
(print ">" (get-a-1))
(assert (= (get-a-1) 10))
(print ">" (get-a-2))
(assert (= (get-a-2) 10))
(set-a-2 11)
(print "> should be 11 from now on")
(print ">" a)
(assert (= a 11))
(print ">" (get-a-1))
(assert (= (get-a-1) 11))
(print ">" (get-a-2))
(assert (= (get-a-2) 11))