aboutsummaryrefslogtreecommitdiff
path: root/lux-r/source/luxc
diff options
context:
space:
mode:
Diffstat (limited to 'lux-r/source/luxc')
-rw-r--r--lux-r/source/luxc/lang/synthesis/variable.lux14
1 files changed, 7 insertions, 7 deletions
diff --git a/lux-r/source/luxc/lang/synthesis/variable.lux b/lux-r/source/luxc/lang/synthesis/variable.lux
index f6a45b02e..932cb3dcb 100644
--- a/lux-r/source/luxc/lang/synthesis/variable.lux
+++ b/lux-r/source/luxc/lang/synthesis/variable.lux
@@ -89,10 +89,10 @@
))]
(s.to-list tracker)))
-## (def: (optimize-register-use current-arity [pathS bodyS])
-## (-> ls.Arity [ls.Path ls.Synthesis] [ls.Path ls.Synthesis])
-## (let [bound (bound-vars pathS)
-## unused (unused-vars current-arity bound bodyS)
-## adjusted (adjust-vars unused bound)]
-## [(|> pathS (clean-pattern adjusted) simplify-pattern)
-## (clean-expression adjusted bodyS)]))
+... (def: (optimize-register-use current-arity [pathS bodyS])
+... (-> ls.Arity [ls.Path ls.Synthesis] [ls.Path ls.Synthesis])
+... (let [bound (bound-vars pathS)
+... unused (unused-vars current-arity bound bodyS)
+... adjusted (adjust-vars unused bound)]
+... [(|> pathS (clean-pattern adjusted) simplify-pattern)
+... (clean-expression adjusted bodyS)]))