summaryrefslogtreecommitdiffstats
path: root/tests/011
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2021-01-22 07:20:44 -0800
committerKaz Kylheku <kaz@kylheku.com>2021-01-22 07:20:44 -0800
commit1e8dc4f05dc5149f682ac16f3d368ec0fc82cf58 (patch)
tree523a98f2a7c79253578ce39295a65644f11f2f32 /tests/011
parent2df5586aebf988091508e5bc8b50a090b153c8e7 (diff)
downloadtxr-1e8dc4f05dc5149f682ac16f3d368ec0fc82cf58.tar.gz
txr-1e8dc4f05dc5149f682ac16f3d368ec0fc82cf58.tar.bz2
txr-1e8dc4f05dc5149f682ac16f3d368ec0fc82cf58.zip
matcher: fix null value ambiguity in hash match.
Hash pattern matching must not assume that if gethash returns nil, the item is not found. That's just a convenience that can be coded in some situations, not in a general mechanism. * share/txr/stdlib/match.tl (compile-hash-match): Allocate a gensym that serves as a unique object. Pass this to gethash as the alt argument, and then check whether gethash has returned this value to indicate failure.
Diffstat (limited to 'tests/011')
0 files changed, 0 insertions, 0 deletions