From 54d3ebe78702e64b8185f6df8da85ab329c26128 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 1 Jun 2024 11:51:49 -0700
Subject: Fix: bug in instr

---
 src/ast.lisp  | 10 ----------
 src/util.lisp |  2 +-
 2 files changed, 1 insertion(+), 11 deletions(-)

(limited to 'src')

diff --git a/src/ast.lisp b/src/ast.lisp
index 9987ddf..4b12745 100644
--- a/src/ast.lisp
+++ b/src/ast.lisp
@@ -8,18 +8,8 @@
 
 (in-package #:sarcasm.ast)
 
-;;; TYPES
-
-
 ;;; MODULE-STRUCTURES
 
-(def/class instr ()
-  ((name :prefix :type keyword)
-   (code :prefix :type (vector byte))
-   (type :prefix :type stack-effect-type)))
-
-(def/class numeric-instr (instr))
-
 (def/class func ()
   (type :prefix :type typeidx)
   (locals :type (vector valtype))
diff --git a/src/util.lisp b/src/util.lisp
index e561778..79367ac 100644
--- a/src/util.lisp
+++ b/src/util.lisp
@@ -60,7 +60,7 @@ CLASS-OPTIONS is a PLIST of class options."
        (parse-slot-spec-expr (expr)
          " (names ... &key kwargs)"
          (multiple-value-bind (slot-names kwargs) (take-until #'keywordp expr)
-           (multiple-value-bind (kwargs singles) (partition #'singlep kwargs)
+           (multiple-value-bind (singles kwargs) (partition #'singlep kwargs)
              (loop
                :with prefix-accessor? := (find ':prefix singles :test #'eq)
                :for slot :in slot-names
-- 
cgit v1.2.3