emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/geiser-gauche 6b79b43 036/119: Cleanup


From: Philip Kaludercic
Subject: [nongnu] elpa/geiser-gauche 6b79b43 036/119: Cleanup
Date: Sun, 1 Aug 2021 18:27:53 -0400 (EDT)

branch: elpa/geiser-gauche
commit 6b79b43ec3d479edb14379ecaf95f9b5d11fa8a8
Author: András Simonyi <andras.simonyi@gmail.com>
Commit: András Simonyi <andras.simonyi@gmail.com>

    Cleanup
---
 geiser.scm | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/geiser.scm b/geiser.scm
index 153bf07..24a7bdd 100644
--- a/geiser.scm
+++ b/geiser.scm
@@ -14,12 +14,12 @@
    geiser:symbol-documentation
    geiser:module-location
    ;; Missing functions:
-   ;; geiser-start-server
-   ;; geiser-object-signature
-   ;; geiser-symbol-location
-   ;; geiser-find-file
-   ;; geiser-compile-file
-   ;; geiser-compile
+   ;; geiser:start-server
+   ;; geiser:object-signature
+   ;; geiser:symbol-location
+   ;; geiser:find-file
+   ;; geiser:compile-file
+   ;; geiser:compile
    ))
 
 (select-module geiser)
@@ -160,6 +160,7 @@
 
 ;; Format a signature for Geiser autodoc
 (define (signature->autodoc signature module-id)
+  
   (define (process-normal-arg-info arg-info)
     (let ((required '("required"))
          (optional '("optional"))
@@ -180,10 +181,12 @@
                      (else (push! required x))))))
       (map (cut reverse <>)
           (list required optional key))))
+  
   (define (process-dotted-arg-info arg-info)
     `(("required" ,@(dotted-list-head arg-info) "...")
       ("optional")
       ("key")))
+  
   `(,(car signature)
     ("args"
      ,((if (list? signature)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]