diff options
| -rw-r--r-- | src/l-system.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/l-system.lisp b/src/l-system.lisp index 591f43f..13d9992 100644 --- a/src/l-system.lisp +++ b/src/l-system.lisp @@ -18,7 +18,7 @@ (for func = (gethash symbol *l-system-clauses*)) (appending (if (functionp func) (apply func parameters) - parameters)))) + (list `(,symbol ,@parameters)))))) (defmacro setf-l-system-rule (symbol lambda) `(setf (gethash ,symbol *l-system-clauses*) |