provide hash-map and map?

Author: AlexKnauth

clojure/clojure.rkt

@@ -25,6 +25,7 @@
          -> ->>
          partial comp complement constantly
          vector str
+         hash-map map?
          hash-set set?
          map true false nil nth)
 
@@ -162,7 +163,7 @@
             (datum->syntax
               #'(kv ...)
               (apply append (syntax->datum #'(kv.pair ...))))
-     #'(hash key-vals ...)]
+     #'(hash-map key-vals ...)]
     [(_ proc:expr arg:expr ...)
      #'(#%app proc arg ...)]))
 
@@ -221,6 +222,12 @@
         [(char? v) (rkt:string v)]
         [else (format "~s" v)])) ;; FIXME implement clojure printer and pr-str
 
+(define (hash-map . args)
+  (apply hash args))
+
+(define (map? v)
+  (and (hash? v) (immutable? v)))
+
 (define (hash-set . args)
   (apply rkt:set args))
 

clojure/tests/test.rkt

@@ -8,13 +8,16 @@
 (check-true (immutable? [1 2 3]))
 (check-true (immutable? '[1 2 3]))
 (check-true (immutable? (vector 1 2 3)))
-(displayln {:a 5 :b 7})
-(displayln {:a 5, :b 7})
 (check-equal? [1,2,3] [1 2 3])
 (check-equal? [1 2 (+ 1 2)] [1 2 3])
 (check-equal? '[1 2 (+ 1 2)] [1 2 '(+ 1 2)])
 (check-equal? [1 2 [3]] (vector 1 2 (vector 3)))
 
+(displayln {:a 5 :b 7})
+(displayln {:a 5, :b 7})
+(check-equal? {:a 5 :b 7} (hash-map ':a 5 ':b 7))
+(check-pred map? {:a 5 :b 7})
+
 (check-pred char? \a)
 
 (check-pred set? #{1 2 3})