diff options
Diffstat (limited to 'src/l-system.lisp')
| -rw-r--r-- | src/l-system.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/l-system.lisp b/src/l-system.lisp index 2f39259..01e2a1d 100644 --- a/src/l-system.lisp +++ b/src/l-system.lisp @@ -42,3 +42,8 @@ It can expand to parametric grammar or to context sensitive grammar." #'(lambda ,(append vars '(&rest rest)) (declare (ignorable rest)) ,@body))) + +(defun unset-rule (symbol) + "Unset rules from grammar." + (setf (gethash symbol *l-system-clauses*) + nil)) |