we have a new parser and can parse [] and {} for vectors and hm's

2019-11-21 04:33:42 +01:00
parent 079ca002f2
commit 72bd30bf4c
13 changed files with 304 additions and 75 deletions
@@ -1,12 +1,12 @@

-(define hm1 (create-hash-map))
+(define hm1 (hash-map))

 (hm/set! hm1 1 "a")
 (hm/set! hm1 "a" (lambda (x) (+ x 1)))

 (assert (= ((hm/get hm1 (hm/get hm1 1)) 2) 3))

-(define hm2 (create-hash-map))
+(define hm2 (hash-map))
 (hm/set! hm2 'yes :yes)
 (hm/set! hm2 :yes 'yes)

@@ -17,7 +17,7 @@
 (assert (= (hm/get hm2 (hm/get hm2 (hm/get hm2 'yes))) :yes))
 (assert (= (hm/get hm2 (hm/get hm2 (hm/get hm2 :yes))) 'yes))

-(define hm3 (create-hash-map))
+(define hm3 (hash-map))
 (hm/set! hm3 + 'plus)
 (hm/set! hm3 - 'minus)