diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-01-21 22:46:51 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-01-21 22:46:51 -0800 |
| commit | 16094ab126996e3963561b520ff22b405b56ca61 (patch) | |
| tree | 7ef6492dcc3691e94985d64ea3201090462502bd /tests/011 | |
| parent | 646804b3ae8a8eb64c44a7ae73fd3f0f3c1ad568 (diff) | |
| download | txr-16094ab126996e3963561b520ff22b405b56ca61.tar.gz txr-16094ab126996e3963561b520ff22b405b56ca61.tar.bz2 txr-16094ab126996e3963561b520ff22b405b56ca61.zip | |
matcher: default guard-expr to t in match-guard.
* share/txr/stdlib/match.tl (struct match-guard): guard-expr
slot defaults to t, so the guard defauls open.
Guards are sometimes used just for binding temporaries and not
imposing any condition.
(compile-parallel-match, compile-hash-match): Omit
initial value of t for guard-expr.
Diffstat (limited to 'tests/011')
0 files changed, 0 insertions, 0 deletions