diff options
author | olpc user <olpc@xo-5d-f7-86.localdomain> | 2019-11-25 17:36:41 -0800 |
---|---|---|
committer | olpc user <olpc@xo-5d-f7-86.localdomain> | 2019-11-25 17:36:41 -0800 |
commit | 59a4cccd495e925703dbbce74e733efd8e453f16 (patch) | |
tree | ddf7708867beb233feaf518888786160a64e1df1 /starts/meaning-vm/level1.cpp | |
parent | 8172f109ed55b8a02e7e498566b7ba12e346f7e2 (diff) | |
download | standingwithresilience-59a4cccd495e925703dbbce74e733efd8e453f16.tar.gz standingwithresilience-59a4cccd495e925703dbbce74e733efd8e453f16.zip |
add isanonymous, movetoname, decl[s], and nothing concept
Diffstat (limited to 'starts/meaning-vm/level1.cpp')
-rw-r--r-- | starts/meaning-vm/level1.cpp | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/starts/meaning-vm/level1.cpp b/starts/meaning-vm/level1.cpp index 1002c7b..d6896b3 100644 --- a/starts/meaning-vm/level1.cpp +++ b/starts/meaning-vm/level1.cpp @@ -7,16 +7,16 @@ using namespace intellect::level1::concepts; int main() { - decl(make, linked, habit); - decl(needs, assumes, makes); - decl(not, topic); - decl(A, B, C); - decl(source, type, target); + decls(make, linked, habit); + decls(needs, assumes, makes); + decls(not, topic); + decls(A, B, C); + decls(source, type, target); (make-linked).set(is, habit); (make-linked).set(needs, []() -> ref { - decl(structure, function, argument, position); - decl(variable, A, B, C, provide); + decls(structure, function, argument, position); + decls(variable, A, B, C, provide); ref ret = a(structure); ret.link(is, function-argument); @@ -26,7 +26,7 @@ int main() ret.set(a(variable, C), provide); return ret; }()); - a(link, A-B-C-linked).set(link-source, A); + movetoname(a(link), A-B-C-linked).set(link-source, A); (A-B-C-linked).set(link-type, B); (A-B-C-linked).set(link-target, C); a(not, not-A-B-C-linked).set(topic, A-B-C-linked); |