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