diff options
Diffstat (limited to 'src/l-system.lisp')
-rw-r--r-- | src/l-system.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/l-system.lisp b/src/l-system.lisp index c5255a5..79122c7 100644 --- a/src/l-system.lisp +++ b/src/l-system.lisp @@ -23,7 +23,9 @@ (defun generate-l-system (rules) "Make lambda Lindenmayer system" - `(lambda (atom) (case atom ,@(make-case-clauses-from-rules rules)))) + `(lambda (atom) (case atom + ,@(make-case-clauses-from-rules rules) + (t (list atom))))) (defmacro l-system (&rest rules) (generate-l-system rules)) |