1 | static boolean putMatchX(Map<S, Lisp> matches, S key, Lisp val) {
|
2 | if (matches.containsKey(key) && neq(matches.get(key), val)) {
|
3 | print ("key: " + key);
|
4 | fail("multi-matching not implemented");
|
5 | } |
6 | matches.put(key, val); |
7 | ret true; |
8 | } |
9 | |
10 | static boolean putMatchX(Map<S, Lisp> matches, S key, S val) {
|
11 | ret putMatchX(matches, key, lisp(val)); |
12 | } |
13 | |
14 | static boolean putMatchX(Map<S, Lisp> mOuter, Map<S, Lisp> mInner, S key, S val) {
|
15 | // TODO: if it points to a literal |
16 | ret putMatchX(mOuter, mInner.get(key).raw(), val); |
17 | } |
Began life as a copy of #1002726
download show line numbers debug dex old transpilations
Travelled to 13 computer(s): aoiabmzegqzx, bhatertpkbcr, cbybwowwnfue, cfunsshuasjs, gwrvuhgaqvyk, ishqpsrjomds, lpdgvwnxivlt, mqqgnosmbjvj, pyentgdyhuwx, pzhvpgtvlbxg, tslmcundralx, tvejysmllsmz, vouqrxazstgt
No comments. add comment
| Snippet ID: | #1002727 |
| Snippet name: | putMatchX |
| Eternal ID of this version: | #1002727/1 |
| Text MD5: | 18f7d8e88c926cb1af38600bb86a3748 |
| Author: | stefan |
| Category: | eleu / nl |
| Type: | JavaX fragment (include) |
| Public (visible to everyone): | Yes |
| Archived (hidden from active list): | No |
| Created/modified: | 2016-02-18 19:31:51 |
| Source code size: | 543 bytes / 17 lines |
| Pitched / IR pitched: | No / No |
| Views / Downloads: | 781 / 781 |
| Referenced in: | [show references] |