File tree Expand file tree Collapse file tree 3 files changed +7
-7
lines changed Expand file tree Collapse file tree 3 files changed +7
-7
lines changed Original file line number Diff line number Diff line change 1
1
2
2
nostd : prod
3
- ./production --nostd -o tmp.s tests/strict/printU64 .lm
3
+ ./production --nostd -o tmp.s tests/strict/match4 .lm
4
4
as -o tmp.o tmp.s
5
5
ld -o tmp tmp.o
6
6
./tmp && echo $?
Original file line number Diff line number Diff line change 1
1
2
2
preprocess-index-types := ();
3
-
3
+
4
4
preprocess := λprogram . (tail(
5
5
(preprocess-index-typedefs program)
6
6
(preprocess-apply-macros program)
@@ -103,13 +103,13 @@ try-destructure-macro := λlhs e . (match (lhs e) (
103
103
(if (eq( pl el )) Accept ())
104
104
))
105
105
( ( (App( (Literal :Literal:) (Variable pv) )) (Literal el)) (
106
- (if (typecheck-is-constructor el)
106
+ (if (preprocess-index-of-tag el)
107
107
()
108
108
(Accept (KV( pv e )))
109
109
)
110
110
))
111
111
( ( (App( (Literal :Tag:) (Variable pv) )) (Literal el)) (
112
- (if (typecheck-is-constructor el)
112
+ (if (preprocess-index-of-tag el)
113
113
(Accept (KV( pv
114
114
(App(
115
115
(App(
Original file line number Diff line number Diff line change @@ -27,7 +27,7 @@ macro ('match-pats-condition term (:Literal: l)) (
27
27
(==( term l ))
28
28
);
29
29
30
- # macro ('match-pats-condition term (:Tag: l)) (
31
- # (==( (.0( term )) l ))
32
- # );
30
+ macro ('match-pats-condition term (:Tag: l)) (
31
+ (==( (.0( term )) l ))
32
+ );
33
33
You can’t perform that action at this time.
0 commit comments