tests/010/reghash.txr


1
2
3
4
5

@(bind result @(let ((table ^#H((:equal-based)
                                ,(list "$dim" "length") ("$object" "plank")
                                ("$value" "100") ("$units" "cm"))))
                 (regsub #/$[a-z]+/ (op table)
                         "The $dim of $object is $value $units")))