Add thread functino, declare missing arities

tizoc · Aug 11, 2024 · f0bfd40 · f0bfd40
1 parent b6c6003
commit f0bfd40
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/shen-scheme-extensions.shen b/src/shen-scheme-extensions.shen
@@ -17,3 +17,11 @@
 
 (define shen-scheme.find-library
   Name -> ((foreign scm.string-append) ((foreign scm.get-shen-scheme-home-path)) "/libraries/" Name))
+
+(define thread
+  Lazy -> ((foreign scm.fork-thread) Lazy))
+
+(update-lambda-table shen-scheme.handle-launcher-result 1)
+(update-lambda-table shen-scheme.run-shen 1)
+(update-lambda-table shen-scheme.find-library 1)
+(update-lambda-table thread 1)