suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Danny Yoo 2011-11-09 11:56:38 -05:00
parent 005fa3f762
commit bcbfa5f10e
5 changed files with 54 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
js-assembler/runtime-src/baselib-primitives.js
View File

@ -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',

6
lang/kernel.rkt
View File

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

9
tests/more-tests/hashes.expected
View File

@ -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"

29
tests/more-tests/hashes.rkt
View File

@ -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)))

2
version.rkt
View File

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