ufo5260987423/scheme-langserver

Scheme language server

scheme-langserver's Issues

emacs的eglot使用情况

先感谢作者的开源这个非常好的项目，你真棒！
我使用emacs的eglot作为lsp客户端，得到ready-for-analyse.log

read-message
2024 3 4 17 4 53 568023936
{"jsonrpc":"2.0","id":1,"method":"initialize","params":{"processId":5845,"clientInfo":{"name":"Eglot","version":"1.17"},"rootPath":"/data/projector/CLionProjects/scheme-langserver/","rootUri":"file:///data/projector/CLionProjects/scheme-langserver","initializationOptions":{},"capabilities":{"workspace":{"applyEdit":true,"executeCommand":{"dynamicRegistration":false},"workspaceEdit":{"documentChanges":true},"didChangeWatchedFiles":{"dynamicRegistration":true},"symbol":{"dynamicRegistration":false},"configuration":true,"workspaceFolders":true},"textDocument":{"synchronization":{"dynamicRegistration":false,"willSave":true,"willSaveWaitUntil":true,"didSave":true},"completion":{"dynamicRegistration":false,"completionItem":{"snippetSupport":false,"deprecatedSupport":true,"resolveSupport":{"properties":["documentation","details","additionalTextEdits"]},"tagSupport":{"valueSet":[1]}},"contextSupport":true},"hover":{"dynamicRegistration":false,"contentFormat":["plaintext"]},"signatureHelp":{"dynamicRegistration":false,"signatureInformation":{"parameterInformation":{"labelOffsetSupport":true},"documentationFormat":["plaintext"],"activeParameterSupport":true}},"references":{"dynamicRegistration":false},"definition":{"dynamicRegistration":false,"linkSupport":true},"declaration":{"dynamicRegistration":false,"linkSupport":true},"implementation":{"dynamicRegistration":false,"linkSupport":true},"typeDefinition":{"dynamicRegistration":false,"linkSupport":true},"documentSymbol":{"dynamicRegistration":false,"hierarchicalDocumentSymbolSupport":true,"symbolKind":{"valueSet":[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26]}},"documentHighlight":{"dynamicRegistration":false},"codeAction":{"dynamicRegistration":false,"resolveSupport":{"properties":["edit","command"]},"dataSupport":true,"codeActionLiteralSupport":{"codeActionKind":{"valueSet":["quickfix","refactor","refactor.extract","refactor.inline","refactor.rewrite","source","source.organizeImports"]}},"isPreferredSupport":true},"formatting":{"dynamicRegistration":false},"rangeFormatting":{"dynamicRegistration":false},"rename":{"dynamicRegistration":false},"inlayHint":{"dynamicRegistration":false},"publishDiagnostics":{"relatedInformation":false,"codeDescriptionSupport":false,"tagSupport":{"valueSet":[1,2]}}},"window":{"showDocument":{"support":true},"workDoneProgress":true},"general":{"positionEncodings":["utf-32","utf-8","utf-16"]},"experimental":{}},"workspaceFolders":[{"uri":"file:///data/projector/CLionProjects/scheme-langserver","name":"~/CLionProjects/scheme-langserver/"}]}}
send-message
2024 3 4 17 4 59 927210684
{"jsonrpc":"2.0","id":1,"result":{"capabilities":{"textDocumentSync":{"openClose":true,"change":2},"hoverProvider":true,"definitionProvider":true,"referencesProvider":true,"completionProvider":{"triggerCharacters":["("]},"documentSymbolProvider":true,"documentRangeFormattingProvider":false}}}
read-message
2024 3 4 17 4 59 929362320
{"jsonrpc":"2.0","method":"initialized","params":{}}
read-message
2024 3 4 17 4 59 932145590
{"jsonrpc":"2.0","method":"textDocument/didOpen","params":{"textDocument":{"uri":"file:///data/projector/CLionProjects/scheme-langserver/scheme-langserver.sls","version":0,"languageId":"scheme","text":"(library (scheme-langserver)\n  (export\n    init-server)\n  (import\n    (chezscheme)\n    (ufo-thread-pool)\n    (ufo-match)\n\n    (scheme-langserver analysis workspace)\n\n    (scheme-langserver protocol error-code)\n    (scheme-langserver protocol request)\n    (scheme-langserver protocol response)\n    (scheme-langserver protocol server)\n    (scheme-langserver protocol analysis request-queue)\n\n    (scheme-langserver protocol apis references)\n    (scheme-langserver protocol apis document-highlight)\n    (scheme-langserver protocol apis completion)\n    (scheme-langserver protocol apis hover)\n    (scheme-langserver protocol apis definition)\n    (scheme-langserver protocol apis document-sync)\n    (scheme-langserver protocol apis document-symbol)\n    (scheme-langserver protocol apis document-diagnostic)\n\n    (scheme-langserver util try)\n    (scheme-langserver util association)\n    (scheme-langserver util path))\n(def)\n;; Processes a request. This procedure should always return a response\n(define (process-request server-instance request)\n  (let* ([method (request-method request)]\n        [id (request-id request)]\n        [params (request-params request)]\n        [workspace (server-workspace server-instance)])\n    (if\n      (and\n        (server-shutdown? server-instance)\n        (not (equal? \"initialize\" method)))\n      (send-message server-instance (fail-response id server-not-initialized \"not initialized\"))\n      (match method\n        [\"initialize\" (send-message server-instance (initialize server-instance id params))]\n        [\"initialized\" '()]\n\n        [\"textDocument/didOpen\"\n          (try\n            (did-open workspace params)\n            (except c\n              [else\n                (do-log `(format ,(condition-message c) ,@(condition-irritants c)) server-instance)\n                (do-log-timestamp server-instance)\n                (send-message server-instance (fail-response id unknown-error-code method))]))]\n        [\"textDocument/didClose\"\n          (try\n            (did-close workspace params)\n            (except c\n              [else\n                (do-log `(format ,(condition-message c) ,@(condition-irritants c)) server-instance)\n                (do-log-timestamp server-instance)\n                (send-message server-instance (fail-response id unknown-error-code method))]))]\n        [\"textDocument/didChange\"\n          (try\n            (did-change workspace params)\n            (except c\n              [else\n                (do-log `(format ,(condition-message c) ,@(condition-irritants c)) server-instance)\n                (do-log-timestamp server-instance)\n                (send-message server-instance (fail-response id unknown-error-code method))]))]\n\n        [\"textDocument/hover\"\n          (try\n            (send-message server-instance (success-response id (hover workspace params)))\n            (except c\n              [else\n                (do-log `(format ,(condition-message c) ,@(condition-irritants c)) server-instance)\n                (do-log-timestamp server-instance)\n                (send-message server-instance (fail-response id unknown-error-code method))]))]\n        [\"textDocument/completion\"\n          (try\n            (send-message server-instance (success-response id (completion workspace params)))\n            (except c\n              [else\n                (do-log `(format ,(condition-message c) ,@(condition-irritants c)) server-instance)\n                (do-log-timestamp server-instance)\n                (send-message server-instance (fail-response id unknown-error-code method))]))]\n        [\"textDocument/references\"\n          (try\n            (send-message server-instance (success-response id (find-references workspace params)))\n            (except c\n              [else\n                (do-log `(format ,(condition-message c) ,@(condition-irritants c)) server-instance)\n                (do-log-timestamp server-instance)\n                (send-message server-instance (fail-response id unknown-error-code method))]))]\n        ; [\"textDocument/documentHighlight\"\n        ;   (try\n        ;     (send-message server-instance (success-response id (find-highlight workspace params)))\n        ;     (except c\n        ;       [else\n        ;         (do-log `(format ,(condition-message c) ,@(condition-irritants c)) server-instance)\n                ; (do-log-timestamp server-instance)\n        ;         (send-message server-instance (fail-response id unknown-error-code method))]))]\n          ; [\"textDocument/signatureHelp\"\n          ;  (text-document/signatureHelp id params)]\n        [\"textDocument/definition\"\n          (try\n            (send-message server-instance (success-response id (definition workspace params)))\n            (except c\n              [else\n                (do-log `(format ,(condition-message c) ,@(condition-irritants c)) server-instance)\n                (do-log-timestamp server-instance)\n                (send-message server-instance (fail-response id unknown-error-code method))]))]\n        [\"textDocument/documentSymbol\"\n          (try\n            (send-message server-instance (success-response id (document-symbol workspace params)))\n            (except c\n              [else\n                (do-log `(format ,(condition-message c) ,@(condition-irritants c)) server-instance)\n                (do-log-timestamp server-instance)\n                (send-message server-instance (fail-response id unknown-error-code method))]))]\n        [\"textDocument/diagnostic\"\n          (try\n            (send-message server-instance (success-response id (diagnostic workspace params)))\n            (except c\n              [else\n                (do-log `(format ,(condition-message c) ,@(condition-irritants c)) server-instance)\n                (do-log-timestamp server-instance)\n                (send-message server-instance (fail-response id unknown-error-code method))]))]\n\n        [\"$/cancelRequest\"\n          (try\n            (send-message server-instance (fail-response id request-cancelled (assoc-ref params 'method)))\n            (except c\n              [else\n                (do-log `(format ,(condition-message c) ,@(condition-irritants c)) server-instance)\n                (do-log-timestamp server-instance)\n                (send-message server-instance (fail-response id unknown-error-code method))]))]\n          ; [\"textDocument/prepareRename\"\n          ;  (text-document/prepareRename id params)]\n          ; [\"textDocument/formatting\"\n          ;  (text-document/formatting! id params)]\n          ; [\"textDocument/rangeFormatting\"\n          ;  (text-document/range-formatting! id params)]\n          ; [\"textDocument/onTypeFormatting\"\n          ;  (text-document/on-type-formatting! id params)]\n          ; https://microsoft.github.io/language-server-protocol/specifications/lsp/3.17/specification/#didChangeWatchedFilesClientCapabilities\n\t;[\"workspace/didChangeConfiguration\" (+ 1 2)]\n        [else (send-message server-instance (fail-response id method-not-found (string-append \"invalid request for method \" method \" \\n\")))]\n\t;[else (+ 1 3)]\n\t))))\n\t; public static final string text_document_code_lens = \"textdocument/codelens\";\n\t; public static final string text_document_signature_help = \"textdocument/signaturehelp\";\n\t; public static final string text_document_rename = \"textdocument/rename\";\n\t; public static final string workspace_execute_command = \"workspace/executecommand\";\n\t; public static final string workspace_symbol = \"workspace/symbol\";\n\t; public static final string workspace_watched_files = \"workspace/didchangewatchedfiles\";\n\t; public static final string code_action = \"textdocument/codeaction\";\n\t; public static final string typedefinition = \"textdocument/typedefinition\";\n\t; public static final string document_highlight = \"textdocument/documenthighlight\";\n\t; public static final string foldingrange = \"textdocument/foldingrange\";\n\t; public static final string workspace_change_folders = \"workspace/didchangeworkspacefolders\";\n\t; public static final string implementation = \"textdocument/implementation\";\n\t; public static final string selection_range = \"textdocument/selectionrange\";\n\n;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;\n(define (initialize server-instance id params)\n  (let* ([root-path (uri->path (assq-ref params 'rootUri))]\n        [client-capabilities (assq-ref params 'capabilities)]\n        [window (assq-ref client-capabilities 'window)]\n        [workDoneProgress? (if window (assq-ref window 'workDoneProgress) #f)]\n        [textDocument (assq-ref params 'textDocument)]\n        ; [renameProvider\n        ;   (if (assq-ref (assq-ref (assq-ref params 'textDocumet) 'rename) 'prepareSupport)\n        ;     (make-alist 'prepareProvider #t)\n        ;     #t)]\n        [workspace-configuration-body (make-alist 'workspaceFolders (make-alist 'changeNotifications #t 'supported #t))]\n\n        [text-document-body (make-alist\n              'openClose #t\n              ;; https://microsoft.github.io/language-server-protocol/specifications/lsp/3.17/specification/#textDocumentSyncKind\n              ;; Incremental=2\n              'change 2)]\n        [server-capabilities (make-alist\n              'textDocumentSync text-document-body\n              'hoverProvider #t\n              'definitionProvider #t\n              'referencesProvider #t\n              ; 'diagnosticProvider (make-alist 'interFileDependencies #t 'workspaceDiagnostics #f)\n              ; 'workspaceSymbol #t\n              ; 'typeDefinitionProvider #t\n              ; 'selectionRangeProvider #t\n              ; 'callHierarchyProvider #t\n              'completionProvider (make-alist 'triggerCharacters (vector \"(\"))\n              ; 'signatureHelpProvider (make-alist 'triggerCharacters (vector \" \" \")\" \"]\"))\n              ; 'implementationProvider #t\n              ; 'renameProvider renameProvider\n              ; 'codeActionProvider #t\n              ; 'documentHighlightProvider #t\n              'documentSymbolProvider #t\n              ; 'documentLinkProvider #t\n              ; 'documentFormattingProvider #t\n              'documentRangeFormattingProvider #f\n              ; 'documentOnTypeFormattingProvider (make-alist 'firstTriggerCharacter \")\" 'moreTriggerCharacter (vector \"\\n\" \"]\"))\n              ; 'codeLensProvider #t\n              ; 'foldingRangeProvider #t\n              ; 'colorProvider #t\n              ; 'workspace workspace-configuration\n              )])\n\n    (if (null? (server-mutex server-instance))\n      (begin\n        (server-workspace-set! server-instance (init-workspace root-path #f (server-ss/scm-import-rnrs? server-instance) (server-type-inference? server-instance)))\n        (server-work-done-progress?-set! server-instance workDoneProgress?)\n        (success-response id (make-alist 'capabilities server-capabilities)))\n      (with-mutex (server-mutex server-instance)\n        (if (null? (server-workspace server-instance))\n          (begin\n            (server-workspace-set! server-instance (init-workspace root-path #t (server-ss/scm-import-rnrs? server-instance) (server-type-inference? server-instance)))\n            (server-work-done-progress?-set! server-instance workDoneProgress?)\n            (success-response id (make-alist 'capabilities server-capabilities)))\n          (fail-response id server-error-start \"server has been initialized\"))))))\n\n(define init-server\n    (case-lambda\n        [()\n          (init-server\n            (standard-input-port)\n            (standard-output-port)\n            '()\n            #f\n            #f\n            #f)]\n        [(log-path)\n          (init-server\n            (standard-input-port)\n            (standard-output-port)\n            (open-file-output-port\n              log-path\n              (file-options replace)\n              'block\n              (make-transcoder (utf-8-codec)))\n            #f\n            #f\n            #f)]\n        [(log-path enable-multi-thread?)\n          (init-server log-path enable-multi-thread? #f #f)]\n        [(log-path enable-multi-thread? ss/scm-import-rnrs?)\n          (init-server log-path enable-multi-thread? ss/scm-import-rnrs? #f)]\n        [(log-path enable-multi-thread? ss/scm-import-rnrs? type-inference?)\n          (init-server\n            (standard-input-port)\n            (standard-output-port)\n            (open-file-output-port\n              log-path\n              (file-options replace)\n              'block\n              (make-transcoder (utf-8-codec)))\n            (equal? enable-multi-thread? \"enable\")\n            (equal? ss/scm-import-rnrs? \"enable\")\n            (equal? type-inference? \"enable\"))]\n        [(input-port output-port log-port enable-multi-thread?)\n          (init-server input-port output-port log-port enable-multi-thread? #f #f)]\n        [(input-port output-port log-port enable-multi-thread? ss/scm-import-rnrs? type-inference?)\n          ;The thread-pool size just limits how many threads to process requests;\n          (let* ([thread-pool (if (and enable-multi-thread? threaded?) (init-thread-pool 1 #t) '())]\n              [request-queue (if (and enable-multi-thread? threaded?) (init-request-queue) '())]\n              [server-instance (make-server input-port output-port log-port thread-pool request-queue '() ss/scm-import-rnrs? type-inference?)])\n            (try\n              (if (not (null? thread-pool))\n                (thread-pool-add-job thread-pool\n                  (lambda ()\n                    (let loop ()\n                      (process-request server-instance (request-queue-pop request-queue))\n                      (loop)))))\n              (let loop ([request-message (read-message server-instance)])\n                (if (not (null? request-message))\n                  (if (not (or (equal? \"shutdown\" (request-method request-message)) (equal? \"exit\" (request-method request-message))))\n                    (begin\n                      (if (null? thread-pool)\n                        (process-request server-instance request-message)\n                        (request-queue-push request-queue request-message))\n                      (loop (read-message server-instance))))))\n              (except c\n                [else\n                  (pretty-print `(format ,(condition-message c) ,@(condition-irritants c)))\n                  (do-log (string-append \"error: \" (eval `(format ,(condition-message c) ,@(condition-irritants c)))) server-instance)\n                  (do-log-timestamp server-instance)])))]))\n)\n"}}}
read-message
2024 3 4 17 4 59 932843820
{"jsonrpc":"2.0","method":"workspace/didChangeConfiguration","params":{"settings":{}}}
send-message
2024 3 4 17 4 59 932905205
{"jsonrpc":"2.0","id":false,"error":{"code":-32601,"message":"invalid request for method workspace\/didChangeConfiguration \n"}}
read-message
2024 3 4 17 5 2 220342980
{"jsonrpc":"2.0","id":2,"method":"textDocument/hover","params":{"textDocument":{"uri":"file:///data/projector/CLionProjects/scheme-langserver/scheme-langserver.sls"},"position":{"line":28,"character":3}}}

1， 使用(load "tests/log-debug.sps")复现时，发现tests/log-debug.sps处理以send-message为界，导致result不对，以及init-server参数匹配不到预期的case，我修改了tests/log-debug.sps

(test-begin "log-debug")
(let loop ([lines (read-lines "~/ready-for-analyse.log")]
        [result '()]
        [batch '()]
        [read? #f])
    (if (not (null? lines))
        (let ([current-line (car lines)])
            (cond
                [read?
                    (let ([s current-line])
                      (loop
                        lines
                        `(,@result ,(string-append
        "Content-Length: "
        (number->string (bytevector-length (string->utf8 s)))
        "\r\n\r\n" s))
                        '()
                        #f))]
                [(and (not read?) (equal? current-line "read-message")) (loop (cddr lines) result '() #t)]
                [else (loop (cdr lines) result '() #f)]))
        (let* ([input-port (open-bytevector-input-port (string->utf8 (apply string-append result)))]
                [log-port (open-file-output-port "~/scheme-langserver.log" (file-options replace) 'block (make-transcoder (utf-8-codec)))]
                [output-port (open-file-output-port "~/scheme-langserver.out" (file-options replace) 'none)]
                ; special for ss/scm enabled
                ; [server-instance (init-server input-port output-port log-port #f #t)]
		;[a (break)]
                [server-instance (init-server input-port output-port log-port #f #f #f)])
            (test-equal #f (server-shutdown? server-instance)))
        ))
(test-end)

2，运行

>scheme
Chez Scheme Version 9.5.9
Copyright 1984-2022 Cisco Systems, Inc.

> (load "tests/log-debug.sps")
%%%% Starting test log-debug
(format
  "~s is not a condition of type &message"
  position-out-of-range)
Exception: variable position-out-of-range is not bound
Type (debug) to enter the debugger.
> 

发现报错了，我编辑的动作是输入(def)，光标在def后面。我对比了eglot和LunarVim(1.3)的差异，发现LunarVim(1.3)是发送textDocument/didChange和textDocument/completion，我猜是因为eglot没有发送textDocument/didChange就发送hover，但是我不知道如何修改。后来我修改scheme-langserver的initialize中'hoverProvider #f即不支持hover，eglot表现就和LunarVim一样发送textDocument/didChange和textDocument/completion，现在正常工作了！我目前对于lsp和scheme了解不多，不知道position-out-of-range和hover报错的具体原因，希望作者排查处理，谢谢你

How to use with Helix Editor?

I am new to Scheme and using Helix Editor 23.10. I successfully installed scheme-langserver 1.1.1 package from Akku.
I cannot find where Akku installed the language server executable, what the executable's name is, or how to set it up to work with Helix.

I've added the following to languages.toml
[[language]]
name = "scheme"
scope = "source.scheme"
injection-regex = "scheme"
file-types = ["ss", "scm"]
shebangs = ["scheme", "guile", "chicken"]
comment-token = ";"
indent = { tab-width = 2, unit = " " }
language-servers = [ "scheme-langserver"]

scheme-langserver 是否可以安装在emacs中？

scheme-langserver 是否可以安装在emacs中？

/usr/local/lib/petite-chez.a: No such file or directory

I also tried on ubuntu, but failed to compile-chez-program run.ss

I got the ERROR

# compile-chez-program run.ss
compiling run.ss with output to run.so
cc: error: /usr/local/lib/petite-chez.a: No such file or directory
run

Env

# uname -a
Linux 71bdad0c8f86 5.15.49-linuxkit-pr #1 SMP Thu May 25 07:17:40 UTC 2023 x86_64 x86_64 x86_64 GNU/Linux

the chez scheme is built from source code: https://github.com/cisco/ChezScheme
the chez-exe is built from source code: https://github.com/gwatt/chez-exe
the akku is the pre-built version v1.1.0 from the official website: https://gitlab.com/akkuscm/akku/-/releases

the files provided by chez scheme is

# ls /usr/lib/csv9.5.9/a6le/
kernel.o  main.o  petite.boot  revision  scheme-script.boot  scheme.boot  scheme.h

no petite-chez.a installed

Github Workflows

cc: @ufo5260987423

As there are plans to encourage outside contributions, it would be essential to set up workflows to make that go smoothly. I would like to propose the classic workflow:

• One that triggers on a PR and runs tests.
• This can be implemented mostly on top of the checkout workflow; we just need a Dockerfile.

We can also add something to simplify or even automate releases:

• A workflow that triggers on a merge into the main branch and publishes a new release. It can derive the version number from a Changelog.md written in a discussion, file, or commit message.
• I am unsure how to approach this, but perhaps one can call the GH API to retrieve the Changelog, then call it again to publish the release. One can also use one of the existing actions, though those may change the proposed way of providing a Changelog.

I would love to hear your thoughts!

how to support a new scheme dialect

cool work.

is there any plan to support Guile?

BTW, how to setup with vscode?

how to work with .scm files

hi,
I have built and used the scheme-langserver success on lvim when editing its own source code.

However, when I edit a single .scm file on another folder,
the scheme-langserver is not working.

• code completion is not available.

• goto definition seems to work

• the log file is empty.

is another config needed?

Exception: attempt to reference unbound identifier make-mutex

Env:

• macOS 13.4.1
• scheme-langserver main branch

ERROR:

run compile-chez-program run.ss

Exception: attempt to reference unbound identifier make-mutex at line 17, char 26 of /Users/pikachu/code/scheme-langserver/.akku/lib/ufo-thread-pool/util/blocking-queue.chezscheme.sls

full log

compile-chez-program run.ss
compiling run.ss with output to run.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/scheme-langserver.chezscheme.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/scheme-langserver.chezscheme.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/ufo-thread-pool.chezscheme.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/ufo-thread-pool.chezscheme.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/ufo-thread-pool/util/blocking-queue.chezscheme.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/ufo-thread-pool/util/blocking-queue.chezscheme.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/slib/queue.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/slib/queue.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/scheme/base.chezscheme.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/scheme/base.chezscheme.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/akku-r7rs/base.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/akku-r7rs/base.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/srfi/:1/lists.chezscheme.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/srfi/:1/lists.chezscheme.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/srfi/:8/receive.chezscheme.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/srfi/:8/receive.chezscheme.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/srfi/:23/error/tricks.chezscheme.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/srfi/:23/error/tricks.chezscheme.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/srfi/private/vanish.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/srfi/private/vanish.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/srfi/private/check-arg.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/srfi/private/check-arg.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/srfi/private/include.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/srfi/private/include.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/srfi/private/include/compat.chezscheme.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/srfi/private/include/compat.chezscheme.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/srfi/private/include/read.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/srfi/private/include/read.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/srfi/:6/basic-string-ports.chezscheme.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/srfi/:6/basic-string-ports.chezscheme.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/srfi/:6/basic-string-ports/compat.chezscheme.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/srfi/:6/basic-string-ports/compat.chezscheme.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/srfi/:9/records.chezscheme.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/srfi/:9/records.chezscheme.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/srfi/:13/strings.chezscheme.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/srfi/:13/strings.chezscheme.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/srfi/:14/char-sets.chezscheme.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/srfi/:14/char-sets.chezscheme.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/srfi/private/let-opt.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/srfi/private/let-opt.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/srfi/:14/char-sets/inversion-list.chezscheme.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/srfi/:14/char-sets/inversion-list.chezscheme.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/srfi/:39/parameters.chezscheme.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/srfi/:39/parameters.chezscheme.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/srfi/:43/vectors.chezscheme.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/srfi/:43/vectors.chezscheme.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/akku/metadata.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/akku/metadata.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/akku-r7rs/compat.chezscheme.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/akku-r7rs/compat.chezscheme.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/akku-r7rs/include.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/akku-r7rs/include.so
compiling /Users/pikachu/code/scheme-langserver/.akku/lib/laesare/reader.sls with output to /Users/pikachu/code/scheme-langserver/.akku/libobj/laesare/reader.so
Exception: attempt to reference unbound identifier make-mutex at line 17, char 26 of /Users/pikachu/code/scheme-langserver/.akku/lib/ufo-thread-pool/util/blocking-queue.chezscheme.sls