X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Fcode-parse.lisp;h=5fe98b8d32b89d94d53a72447c14a68897482557;hp=1cb666211151e9f3e630fa356e11131336b2d3da;hb=807df6b;hpb=3ae0c35e27580b247652dff608dd8c4d29f16bff

diff --git a/src/main/code-parse.lisp b/src/main/code-parse.lisp
index 1cb6662..5fe98b8 100644
--- a/src/main/code-parse.lisp
+++ b/src/main/code-parse.lisp
@@ -67,7 +67,7 @@ DESCRIPTION:
  (let*
   ((*dynamic-prims*
     (append
-     (mapcar #'global->prim external-globals)
+     (mapcar #'global->prim (mapcar #'car external-globals))
      (procedures->prims lexed-ast)))
    (parsed (parse-internal lexed-ast)))
   (values