summaryrefslogtreecommitdiff
path: root/starts/meaning-vm/level1.cpp
diff options
context:
space:
mode:
authorolpc user <olpc@xo-5d-f7-86.localdomain>2019-11-25 17:36:41 -0800
committerolpc user <olpc@xo-5d-f7-86.localdomain>2019-11-25 17:36:41 -0800
commit59a4cccd495e925703dbbce74e733efd8e453f16 (patch)
treeddf7708867beb233feaf518888786160a64e1df1 /starts/meaning-vm/level1.cpp
parent8172f109ed55b8a02e7e498566b7ba12e346f7e2 (diff)
downloadstandingwithresilience-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.cpp16
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);