From 56f71f43b24456d1f9f17adef389b2aebf2a9026 Mon Sep 17 00:00:00 2001
From: mRnea <akannemre@gmail.com>
Date: Wed, 31 Jul 2024 14:54:31 +0300
Subject: this function no longer has any use.

---
 cl-forth.lisp | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/cl-forth.lisp b/cl-forth.lisp
index a22bb32..adacdd1 100644
--- a/cl-forth.lisp
+++ b/cl-forth.lisp
@@ -1,12 +1,5 @@
 (in-package :cl-forth)
 
-(defun assembly-undefined-ops ()
-  (iter (for (k) in-hashtable *operations*)
-        (collect k into defops)
-        (finally (return (remove-if (lambda (sym) (search "SYSCALL" (string sym)))
-                                    (set-difference *identifiers* defops
-                                                    :test #'string=))))))
-
 (defun make-token (sym? line col)
   (if (or (numberp sym?) (is-identifier sym?))
       (values (list sym? :line line :col col) nil)
-- 
cgit v1.2.3