- Some fixes due to recent changes in stdlib.

- Removed some (now) useless modules.

1 files changed, 0 insertions, 29 deletions

diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/procedure.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/procedure.jvm.lux
deleted file mode 100644
index ed8220613..000000000
--- a/new-luxc/source/luxc/lang/translation/common-lisp/procedure.jvm.lux
+++ /dev/null
@@ -1,29 +0,0 @@
-(.module:
-  lux
-  (lux (control [monad #+ do]
-                ["ex" exception #+ exception:])
-       (data [maybe]
-             text/format
-             (coll (dictionary ["dict" unordered #+ Dict]))))
-  (luxc ["&" lang]
-        (lang ["ls" synthesis]
-              (host ["_" common-lisp #+ Expression])))
-  [//]
-  (/ ["/." common]
-     ["/." host]))
-
-(exception: #export (Unknown-Procedure {message Text})
-  message)
-
-(def: procedures
-  /common.Bundle
-  (|> /common.procedures
-      (dict.merge /host.procedures)))
-
-(def: #export (translate-procedure translate name args)
-  (-> (-> ls.Synthesis (Meta Expression)) Text (List ls.Synthesis)
-      (Meta Expression))
-  (<| (maybe.default (&.throw Unknown-Procedure (%t name)))
-      (do maybe.Monad<Maybe>
-        [proc (dict.get name procedures)]
-        (wrap (proc translate args)))))