Turn literal into a functionHEADmain

1 files changed, 3 insertions, 3 deletions

diff --git a/extra.lisp b/extra.lisp
index 9805ca0..fc19da8 100644
--- a/extra.lisp
+++ b/extra.lisp
@@ -16,7 +16,7 @@
         (if x (cons x xs) x))
       nothing)))
 
-(defmacro literal (word)
+(defun literal (word)
   (when (not (stringp word))
     (error "Literal only accepts strings as input."))
   (let ((binding-list '())
@@ -26,8 +26,8 @@
             (let ((name (gensym)))
               (push name name-list)
               (push `(,name (unit ,c)) binding-list))))
-    `(comp ,(reverse binding-list)
-       ,(cons 'list (reverse name-list)))))
+    (eval `(comp ,(reverse binding-list)
+             ,(cons 'list (reverse name-list))))))
 
 (declaim (ftype (function (parser parser &optional parser) parser) within))
 (defun within (left p &optional right)