diff options
Diffstat (limited to 'stdlib/source/lux/host/scheme.lux')
-rw-r--r-- | stdlib/source/lux/host/scheme.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/lux/host/scheme.lux b/stdlib/source/lux/host/scheme.lux index 7194935e6..5a8741c78 100644 --- a/stdlib/source/lux/host/scheme.lux +++ b/stdlib/source/lux/host/scheme.lux @@ -9,7 +9,7 @@ ["." text format] [collection - ["." list ("#/." functor fold)]]] + ["." list ("#;." functor fold)]]] [macro ["." template]] [type @@ -55,14 +55,14 @@ _ (|> (format " . " (:representation rest)) (format (|> vars - (list/map ..code) + (list;map ..code) (text.join-with " "))) (text.enclose ["(" ")"]) :abstraction)) #.None (|> vars - (list/map ..code) + (list;map ..code) (text.join-with " ") (text.enclose ["(" ")"]) :abstraction))) @@ -130,7 +130,7 @@ (def: form (-> (List (Code Any)) Text) - (|>> (list/map ..code) + (|>> (list;map ..code) (text.join-with " ") (text.enclose ["(" ")"]))) @@ -250,7 +250,7 @@ (:abstraction (..form (list (..global <scheme-name>) (|> bindings - (list/map (.function (_ [binding/name binding/value]) + (list;map (.function (_ [binding/name binding/value]) (:abstraction (..form (list (<pre> binding/name) binding/value))))) @@ -278,7 +278,7 @@ (def: #export (cond clauses else) (-> (List [Expression Expression]) Expression Computation) - (|> (list/fold (.function (_ [test then] next) + (|> (list;fold (.function (_ [test then] next) (if test then next)) else (list.reverse clauses)) |