glen/fostr
1
0
Fork 1
Code Issues 4 Pull Requests Projects Releases Wiki Activity

Add literal string constants #19

Merged
glen merged 6 commits from string_literal into main 2021-02-18 04:17:05 +00:00
Conversation 0 Commits 6 Files Changed 16 +7 -4
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 2514f0df98 - Show all commits

11
trans/statics.stx
View File

@ -139,11 +139,16 @@ hand-defined, as done in "statics/util.stx" like so:
type_OptTermEx(ote) == T, type_OptTermEx(ote) == T,
@l.type := T. @l.type := T.
type_Ex : Ex -> TYPE type_Ex : Ex -> TYPE
type_TermEx : TermEx -> TYPE
type_OptTermEx(ote@Ex2OptTermEx(e)) = T :- type_OptTermEx(ote@Ex2OptTermEx(e)) = T :-
type_Ex(e) == T, type_Ex(e) == T,
@ote.type :=T. @ote.type := T.
type_OptTermEx(ote@TermEx2OptTermEx(te)) = T :-
type_TermEx(te) == T,
@ote.type := T.
/** md /** md
@ -171,8 +176,6 @@ constructor was trivial:
``` ```
**/ **/
type_TermEx: TermEx -> TYPE
type_TermEx(te@Terminate(e)) = T :- type_TermEx(te@Terminate(e)) = T :-
type_Ex(e) == T, type_Ex(e) == T,
@te.type := T. @te.type := T.