Commit 8716c62f authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

cmp: p1fset type propagator returns FUNCTION

Previously the propagator incorrectly returned the type of the function lambda.
parent e4fca7e8
......@@ -25,7 +25,7 @@
(p1propagate form assumptions))
(defun p1fset (c1form assumptions fun fname macro pprint c1forms)
(p1propagate (fun-lambda fun) assumptions))
(values 'function assumptions))
(defun p1propagate (form assumptions)
(unless form
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment