this function no longer has any use.

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)