Skip to content

Commit 98f46d3

Browse files
success
1 parent 048ab44 commit 98f46d3

File tree

4 files changed

+5
-4
lines changed

4 files changed

+5
-4
lines changed

PLUGINS/BACKEND/C/compile-global.lm

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -9,7 +9,6 @@ compile-global-c-main-term := ASTEOF;
99

1010
compile-global-c := λ(: ctx FContext)(: k String)(: term AST). (: (
1111
(let kt (typeof term))
12-
(print 'Global\s_s)(print k)(print '\s:\s_s)(print kt)(print '\n_s)
1312
(match term (
1413
()
1514
( (Abs( lhs rhs tlt )) (

PLUGINS/BACKEND/C/std-c-compile-call.lsts

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,6 @@ let std-c-compile-call(ctx: FContext, fname: CString, fterm: AST, args: AST): Fr
1717
let push-args = std-c-compile-push-args(ctx, args);
1818
let function-id = if typeof(fterm).is-t(c"FFI") || typeof(fterm).is-t(c"C-FFI")
1919
then fname else mangle-identifier(fname, typeof(fterm));
20-
print("Call \{fname} : \{typeof(fterm)}\n");
2120
let ictx = mk-fragment().set(c"function-id", SAtom{function-id});
2221
let inner-ctx = mk-fctx().bind(c"ictx", t1(c"ImplicitContext"), ictx)
2322
.bind(c"args", typeof(args), push-args);

SRC/specialize.lm

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

22
specialize := λ(: key String)(: ft Type)(: unify-ctx Maybe<TContext>)(: result-type Type). (: (
33
(if (is-special( key result-type )) () (
4-
(print 'Specialize\s_s)(print key)(print '\s:\s_s)(print result-type)(print '\n_s)
54
(let term ASTEOF)
65
(for-each ((Tuple( kt _ t )) in (.lookup( global-type-context key (: LEOF List<Tuple<Type,Type,AST>>) ))) (
76
(if (==( ft kt )) (

SRC/std-infer-expr.lsts

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -123,7 +123,11 @@ let std-infer-expr(tctx: Maybe<TContext>, term: AST, is-scoped: Bool, used: IsUs
123123
tctx = infer-ctx(tctx, lhs);
124124
(_, let new-inner-rhs) = std-infer-expr(tctx, inner-rhs, false, Tail, return-type);
125125
if not(is(inner-rhs,new-inner-rhs))
126-
then { inner-rhs = new-inner-rhs; term = mk-abs(lhs, mk-app(asc,mk-app(inner-rhs,mk-atype(return-type))), misc-tt) };
126+
then {
127+
inner-rhs = new-inner-rhs;
128+
rhs = mk-app(asc.unique,mk-app(inner-rhs,mk-atype(return-type)));
129+
term = mk-abs(lhs,rhs,misc-tt);
130+
};
127131
if not(misc-tt.is-t(c"Blob")) && not(misc-tt.is-t(c"C-FFI")) then ascript-normal(inner-rhs, return-type);
128132
ascript-normal(rhs, return-type);
129133
let domain-tt = typeof-lhs(lhs);

0 commit comments

Comments
 (0)