kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-11-10 12:47:45 +03:00
Code Issues Projects Releases Wiki Activity

Eval keys of hash-map as well

Browse Source
This commit is contained in:
Iqbal Ansari 2016-08-21 11:29:59 +05:30
parent 130e1c9441
commit 4ccd278d37
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
common_lisp/step6_file.lisp
View File

@ -36,7 +36,7 @@
(new-hash-table (make-hash-table :test 'types:mal-value=)))
(loop
for key being the hash-keys of hash-map-value
do (setf (gethash key new-hash-table)
do (setf (gethash (mal-eval key env) new-hash-table)
(mal-eval (gethash key hash-map-value) env)))
(make-mal-hash-map new-hash-table)))