diff options
| author | mRnea <[email protected]> | 2024-07-31 14:54:31 +0300 |
|---|---|---|
| committer | mRnea <[email protected]> | 2024-07-31 14:54:31 +0300 |
| commit | 56f71f43b24456d1f9f17adef389b2aebf2a9026 (patch) | |
| tree | f9a1edad630d1e0b599172b13b3cb50e246fc228 | |
| parent | e4419034ceb01bc58a5cbe228ff8be7439e8defd (diff) | |
this function no longer has any use.
| -rw-r--r-- | cl-forth.lisp | 7 |
1 files changed, 0 insertions, 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) |