diff options
| -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) |