          (stack-cap (pop! pkg))
          (doc-string (pop! pkg)))
     (make-byte-code args-desc
-                    (goism--ir-to-bytecode pkg)
+                    (goism--ir-to-bytecode pkg cvec)
                     cvec
                     stack-cap
                     doc-string)))

(defsubst goism--ir-make-info (kind data) (cons kind data))
(defsubst goism--ir-info-kind (info) (car info))
(defsubst goism--ir-info-data (info) (cdr info))

(defconst goism--ir-table
  (let ((table (make-hash-table :test #'eq)))
    (dolist (x '(;; - Special instructions -
                 (label label ir-label)
                 ;; - Combined instructions -
                 (stack-ref stack-ref)
                 (discard discard)

    (_
     (error "Unexpected op kind for `%s'" op))))

;; {{ end }}
