From 5b655f558a0cc78b44736eec8eabeed6216f883f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 26 Apr 2019 23:41:03 -0400
Subject: Refactored the spec a bit better.

---
 stdlib/source/spec/compositor/generation/function.lux | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/spec/compositor/generation/function.lux')

diff --git a/stdlib/source/spec/compositor/generation/function.lux b/stdlib/source/spec/compositor/generation/function.lux
index c9f8f5f56..2a8b4687d 100644
--- a/stdlib/source/spec/compositor/generation/function.lux
+++ b/stdlib/source/spec/compositor/generation/function.lux
@@ -21,7 +21,8 @@
      ["." synthesis (#+ Synthesis)]]]]
   ["." // #_
    ["#." case]
-   ["/#" //]])
+   [//
+    [common (#+ Runner)]]])
 
 (def: max-arity Arity 10)
 
@@ -45,7 +46,7 @@
              #synthesis.body (synthesis.variable/local local)})])))
 
 (def: #export (spec run)
-  (-> ///.Runner Test)
+  (-> Runner Test)
   (do r.monad
     [[arity local functionS] ..function
      partial-arity (|> r.nat (:: @ map (|>> (n/% arity) (n/max 1))))
-- 
cgit v1.2.3