From ec7a0dc95f68f0a3b3a79d292596da26e3b8f467 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?P=C5=99emysl=20Janouch?= <p.janouch@gmail.com>
Date: Fri, 26 May 2017 01:36:43 +0200
Subject: Add "values"

This oneliner is way too important to be left out.
---
 ell.c | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'ell.c')

diff --git a/ell.c b/ell.c
index da3fb72..850083c 100644
--- a/ell.c
+++ b/ell.c
@@ -977,6 +977,10 @@ defn (fn_list) {
 	return check (ctx, (*result = new_list (values)));
 }
 
+defn (fn_values) {
+	return !args || check (ctx, (*result = new_clone_list (args)));
+}
+
 defn (fn_if) {
 	struct item *cond, *body, *keyword;
 	for (cond = args; ; cond = keyword->next) {
@@ -1280,6 +1284,7 @@ static bool
 init_runtime_library (struct context *ctx) {
 	if (!native_register (ctx, "set",    fn_set)
 	 || !native_register (ctx, "list",   fn_list)
+	 || !native_register (ctx, "values", fn_values)
 	 || !native_register (ctx, "if",     fn_if)
 	 || !native_register (ctx, "map",    fn_map)
 	 || !native_register (ctx, "print",  fn_print)
-- 
cgit v1.2.3