λgitsite

tui-ffi: stub out shim loader, rely on static linkage

ober

5fccfcbb113eb603af3be7ea86ed69fc9ce6e3e2

diff --git a/lib/jcode/ui/tui-ffi.sls b/lib/jcode/ui/tui-ffi.sls
index 3303879..33d8dc7 100644
--- a/lib/jcode/ui/tui-ffi.sls
+++ b/lib/jcode/ui/tui-ffi.sls
@@ -42,25 +42,7 @@
     (std os path)
     (jerboa core)
     (jerboa runtime))
-  (def _shim-loaded
-       (let ([try-load
-              (lambda (p)
-                (guard (e [#t #f])
-                  (and (file-exists? p) (load-shared-object p))))])
-         (or (try-load "jcode_tui_shim.dylib")
-             (try-load "jcode_tui_shim.so")
-             (try-load
-               (path-join (path-directory (car (command-line)))
-                 "jcode_tui_shim.dylib"))
-             (try-load
-               (path-join (path-directory (car (command-line)))
-                 "jcode_tui_shim.so"))
-             (try-load
-               (path-join (getenv "HOME") ".local" "bin"
-                 "jcode_tui_shim.dylib"))
-             (try-load "vendor/termbox2/jcode_tui_shim.dylib")
-             (try-load "vendor/termbox2/jcode_tui_shim.so")
-             #f)))
+  (def _shim-loaded #t)
   (defrule
     (define-tb name c-name arg-types ret-type)
     (def name