Do not precompute user defined prim

This commit is contained in:
Justin Ethier 2017-07-19 18:02:20 -04:00
parent eb4a4b9aff
commit 5112aa9f46

View file

@ -349,6 +349,7 @@
(and
(pair? ast)
(prim? (car ast))
(not (prim:udf? (car ast)))
;; Does not make sense to precompute these
(not (member (car ast)
'(Cyc-global-vars