we can now quote with '

2018-10-21 00:54:52 +02:00
parent 488b47f08f
commit d55e71396a
3 changed files with 45 additions and 23 deletions
@@ -5,12 +5,22 @@
    "Checks if the argument is nil."
    (= x nil)))

-(define append
-  (lambda (obj sequence)
-    (if (nil? sequence)
-        (list obj)
-      (if (nil? (rest sequence))
-          ))))
+(define last
+  (lambda (seq)
+    "Returns the last element of the given sequence."
+    (if (nil? seq)
+        seq
+      (if (not (= (type (rest seq)) :pair))
+          (first seq)
+        (last (rest seq))))))
+
+(define n-times
+  (lambda (times action)
+    (if (<= times 0)
+        nil
+      (prog
+       (eval action)
+       (n-times (- 1 times) action)))))

 (define range
  (lambda (:keys from :defaults-to 0 to)