aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/analysis/primitive.lux
diff options
context:
space:
mode:
authorEduardo Julian2017-11-29 22:49:56 -0400
committerEduardo Julian2017-11-29 22:49:56 -0400
commit4433c9bcd6c6cac44c018aad2e21a5b4d7cc4896 (patch)
tree0c166db6e01b41dfadd01801b5242967f2363b7d /new-luxc/source/luxc/lang/analysis/primitive.lux
parent77c113a3455cdbc4bb485a94f67f392480cdcfbf (diff)
- Adapted main codebase to the latest syntatic changes.
Diffstat (limited to 'new-luxc/source/luxc/lang/analysis/primitive.lux')
-rw-r--r--new-luxc/source/luxc/lang/analysis/primitive.lux22
1 files changed, 11 insertions, 11 deletions
diff --git a/new-luxc/source/luxc/lang/analysis/primitive.lux b/new-luxc/source/luxc/lang/analysis/primitive.lux
index 9124ca271..8270e7e73 100644
--- a/new-luxc/source/luxc/lang/analysis/primitive.lux
+++ b/new-luxc/source/luxc/lang/analysis/primitive.lux
@@ -1,4 +1,4 @@
-(;module:
+(.module:
lux
(lux (control monad)
[macro]
@@ -11,20 +11,20 @@
(do-template [<name> <type> <tag>]
[(def: #export (<name> value)
(-> <type> (Meta Analysis))
- (do macro;Monad<Meta>
- [_ (&;infer <type>)]
+ (do macro.Monad<Meta>
+ [_ (&.infer <type>)]
(wrap (<tag> value))))]
- [analyse-bool Bool code;bool]
- [analyse-nat Nat code;nat]
- [analyse-int Int code;int]
- [analyse-deg Deg code;deg]
- [analyse-frac Frac code;frac]
- [analyse-text Text code;text]
+ [analyse-bool Bool code.bool]
+ [analyse-nat Nat code.nat]
+ [analyse-int Int code.int]
+ [analyse-deg Deg code.deg]
+ [analyse-frac Frac code.frac]
+ [analyse-text Text code.text]
)
(def: #export analyse-unit
(Meta Analysis)
- (do macro;Monad<Meta>
- [_ (&;infer Unit)]
+ (do macro.Monad<Meta>
+ [_ (&.infer Unit)]
(wrap (` []))))