From 59d076f6dc179315b6dfc1c141dc9ee48cc66a54 Mon Sep 17 00:00:00 2001
From: mryouse
Date: Tue, 6 Jun 2023 20:27:18 -0400
Subject: initial commit of reverse

---
 compiler.d | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'compiler.d')

diff --git a/compiler.d b/compiler.d
index 6756882..51fca25 100644
--- a/compiler.d
+++ b/compiler.d
@@ -662,6 +662,18 @@ class Compiler {
         this.func.chunk.writeOp(OpCode.OP_REST, args[0].line);
     }
 
+    void compileReverse(Form[] args) {
+        // TODO how do we identify/propagate errors?
+        if (args.length != 1) {
+            this.error("'reverse': expected [1] argument, received ?", -1);
+            return;
+        }
+        ValueType vt = this.resolve(args[0], ValueType.OBJ); // TODO need a new type
+        this.func.chunk.writeOp(OpCode.OP_TYPE_CHECK_SEQ, args[0].line);
+
+        this.func.chunk.writeOp(OpCode.OP_REVERSE, args[0].line);
+    }
+
     // TERMINAL
     void compilePrint(Form[] args) {
         if (args.length != 1) {
@@ -843,6 +855,9 @@ class Compiler {
             case "rest":
                 this.compileRest(cons.tail);
                 break;
+            case "reverse":
+                this.compileReverse(cons.tail);
+                break;
 
             // OTHER
             case "print":
-- 
cgit v1.2.3