summaryrefslogtreecommitdiff
path: root/starts/meaning-vm/level-1/funcs.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'starts/meaning-vm/level-1/funcs.cpp')
-rw-r--r--starts/meaning-vm/level-1/funcs.cpp5
1 files changed, 5 insertions, 0 deletions
diff --git a/starts/meaning-vm/level-1/funcs.cpp b/starts/meaning-vm/level-1/funcs.cpp
index c9cca37..0a481e9 100644
--- a/starts/meaning-vm/level-1/funcs.cpp
+++ b/starts/meaning-vm/level-1/funcs.cpp
@@ -74,6 +74,11 @@ value<T>* valloc(T const & val)
return ret;
}
+concept* hyphenate(concept* a, concept* b)
+{
+ return getnamed(getname(a)->data + "-" + getname(b)->data);
+}
+
template value<std::string>* valloc<std::string>(std::string const & val);
template value<int>* valloc<int>(int const & val);