exercising hash-values, hash-keys, hash-map, hash-for-each

js-assembler/runtime-src/baselib-primitives.js

@@ -195,6 +195,18 @@
             return VOID;
         });
 
+    installPrimitiveProcedure(
+        'write',
+        makeList(1, 2),
+        function (M) {
+            var firstArg = M.e[M.e.length - 1];
+            var outputPort = M.params.currentOutputPort;
+            if (M.a === 2) {
+                outputPort = checkOutputPort(M, 'write', 1);
+            }
+            outputPort.writeDomNode(M, toDomNode(firstArg, 'write'));
+            return VOID;
+        });
 
     installPrimitiveProcedure(
         'write-byte',

lang/kernel.rkt

@@ -438,9 +438,9 @@ box?
   string-append
   string->list
   list->string
-;;  string-copy
   string->symbol
   symbol->string
+  
   format
   printf
   fprintf

tests/more-tests/hashes.expected

@@ -71,3 +71,12 @@ false
 false
 false
 true
+
+(author name)
+(author name)
+(graham-knuth-patashnik concrete-mathematics)
+(graham-knuth-patashnik concrete-mathematics)
+"author"
+"name"
+"graham-knuth-patashnik"
+"concrete-mathematics"

tests/more-tests/hashes.rkt

@@ -152,3 +152,32 @@
 (hash-eqv? (make-hash))
 (hash-eqv? (make-hasheq))
 (hash-eqv? (make-hasheqv))
+
+
+(newline)
+(hash-keys (make-hash '((name . concrete-mathematics)
+                        (author . graham-knuth-patashnik))))
+(hash-keys (make-immutable-hash '((name . concrete-mathematics)
+                                  (author . graham-knuth-patashnik))))
+(hash-values (make-hash '((name . concrete-mathematics)
+                        (author . graham-knuth-patashnik))))
+(hash-values (make-immutable-hash '((name . concrete-mathematics)
+                                  (author . graham-knuth-patashnik))))
+(hash-map (make-hash '((name . concrete-mathematics)
+                        (author . graham-knuth-patashnik)))
+          (lambda (k v) (list v k)))
+(hash-map (make-immutable-hash '((name . concrete-mathematics)
+                                  (author . graham-knuth-patashnik)))
+          (lambda (k v) (list v k)))
+
+(hash-for-each (make-hash '((name . concrete-mathematics)
+                            (author . graham-knuth-patashnik)))
+               (lambda (k v)
+                 (write (symbol->string k))
+                 (newline)))
+
+(hash-for-each (make-immutable-hash '((name . concrete-mathematics)
+                                      (author . graham-knuth-patashnik)))
+               (lambda (k v)
+                 (write (symbol->string v))
+                 (newline)))

version.rkt

@@ -6,4 +6,4 @@
 
 (provide version)
 (: version String)
-(define version "1.71")
+(define version "1.72")