Skip to content

Commit 2713740

Browse files
making forward progress
1 parent b0112cd commit 2713740

File tree

3 files changed

+7
-7
lines changed

3 files changed

+7
-7
lines changed

Makefile

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11

22
nostd: prod
3-
./production --nostd -o tmp.s tests/strict/printU64.lm
3+
./production --nostd -o tmp.s tests/strict/match4.lm
44
as -o tmp.o tmp.s
55
ld -o tmp tmp.o
66
./tmp && echo $?

PRODUCTION/preprocess.lm

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11

22
preprocess-index-types := ();
3-
3+
44
preprocess := λprogram . (tail(
55
(preprocess-index-typedefs program)
66
(preprocess-apply-macros program)
@@ -103,13 +103,13 @@ try-destructure-macro := λlhs e . (match (lhs e) (
103103
(if (eq( pl el )) Accept ())
104104
))
105105
( ( (App( (Literal :Literal:) (Variable pv) )) (Literal el)) (
106-
(if (typecheck-is-constructor el)
106+
(if (preprocess-index-of-tag el)
107107
()
108108
(Accept (KV( pv e )))
109109
)
110110
))
111111
( ( (App( (Literal :Tag:) (Variable pv) )) (Literal el)) (
112-
(if (typecheck-is-constructor el)
112+
(if (preprocess-index-of-tag el)
113113
(Accept (KV( pv
114114
(App(
115115
(App(

STDLIB/default-rules.lm

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -27,7 +27,7 @@ macro ('match-pats-condition term (:Literal: l)) (
2727
(==( term l ))
2828
);
2929

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+
);
3333

0 commit comments

Comments
 (0)