Better stop condition parsing hashtable literals.
This commit is contained in:
parent
ac9064bb54
commit
55aeec08d3
|
@ -39,7 +39,8 @@
|
||||||
(if key-p
|
(if key-p
|
||||||
(push prev k)
|
(push prev k)
|
||||||
(push prev v))))
|
(push prev v))))
|
||||||
(if key-p
|
(if (and (null k)
|
||||||
|
(null v))
|
||||||
(error "Mismatched key value pairs.")
|
(error "Mismatched key value pairs.")
|
||||||
(progn
|
(progn
|
||||||
(finalise-kv-pair)
|
(finalise-kv-pair)
|
||||||
|
|
Loading…
Reference in New Issue