[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-gambit 9afb60e 12/34: code cleanup
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-gambit 9afb60e 12/34: code cleanup |
Date: |
Sun, 1 Aug 2021 18:27:17 -0400 (EDT) |
branch: elpa/geiser-gambit
commit 9afb60e8c0855290bc4fbafdba41c417e49c7837
Author: mathieu2em <math.per@hotmail.com>
Commit: mathieu2em <math.per@hotmail.com>
code cleanup
---
scheme/gambit/geiser/gambit.scm | 24 +++++++++++-------------
1 file changed, 11 insertions(+), 13 deletions(-)
diff --git a/scheme/gambit/geiser/gambit.scm b/scheme/gambit/geiser/gambit.scm
index ee307f3..e3e7dae 100644
--- a/scheme/gambit/geiser/gambit.scm
+++ b/scheme/gambit/geiser/gambit.scm
@@ -63,7 +63,7 @@
;;(pp "-----NEXT1--key---")
(cons (reverse result) lst))
(else (loop (cdr lst) (cons (car lst) result))))))
-
+
(define (get-optional lst)
;;(pp "getopt")
;;(pp lst)
@@ -85,7 +85,7 @@
;;(pp (cons (reverse (cons '... result)) '()))
;;(pp "-------next2---- rest--")
(cons (reverse (cons '... result)) '()))
- (else
+ (else
(loop (cdr lst) (cons (if (pair? (car lst)) (caar lst) (car lst))
result))))))
(define (get-key lst)
@@ -96,8 +96,8 @@
((eq? (car lst) #!rest)
(reverse (cons '... result)))
(else (loop (cdr lst) (cons (car lst) result))))))
-
-
+
+
(let ((proc (##global-var-ref (##make-global-var method-name))))
(if (procedure? proc)
(let ((method-tester (##decompile proc)))
@@ -125,7 +125,6 @@
(symbols-list '()))
(if (< i sym-len)
(let ((sym (vector-ref sym-tab i)))
- (pp sym)
(loop (+ i 1)
(if (symbol? sym)
(let loop2 ((sym-list (if (and (##string-prefix?
prefix sym)
@@ -134,7 +133,6 @@
symbols-list))
(vect sym))
(let ((sym2 (##vector-ref vect 2)))
- (pp sym2)
(if (symbol? sym2)
(if (and (##string-prefix? prefix sym2)
(procedure? (##global-var-ref
(##make-global-var sym))))
@@ -143,7 +141,7 @@
sym-list)))
symbols-list)))
symbols-list))))
-
+
(##sort-list (environment-symbols) string-ci<?))
;; (##sort-list (filter (lambda (el)
@@ -168,7 +166,7 @@
;; filter
(define (filter f lst)
(fold-right (lambda (e r) (if (f e) (cons e r) r)) '() lst))
-
+
;; sorting algorithms
(define (##sort-list l <?)
@@ -195,7 +193,7 @@
(merge l1 l2))))
(mergesort l))
-
+
;; the majority of gambit and r5rs procedures correctly formatted
(define ##gambit-procedures
'((* ("args" (("required") ("optional" [z1 ...]) ("key")))("module"))
@@ -1146,14 +1144,14 @@
;; (current-input-port in)
;; (current-output-port out)
;; (current-error-port out)
-;;
+;;
;; (repl)))
-;;
+;;
;; (thread-start! (make-thread remote-repl))
-;;
+;;
;; (write-to-log `(geiser-start-server . ,rest))
;; (write-to-log `(port ,port))
-;;
+;;
;; (write `(port ,port))
;; (newline)))
- [nongnu] elpa/geiser-gambit 6f01c0d 06/34: parenthesis showing in autodoc fixed., (continued)
- [nongnu] elpa/geiser-gambit 6f01c0d 06/34: parenthesis showing in autodoc fixed., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gambit 95ef42e 03/34: WIP repl behaviour fix, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gambit 9e6bbd7 01/34: WIP gambit support first draft, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gambit 9be02bc 02/34: prompt regexp, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gambit 56c53d1 17/34: Remove duplicated definition of geiser-connect, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gambit 9cc9b98 09/34: fix #1 ##decompile now tried before using the procedure's list, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gambit c44a145 13/34: better indent , gsi opening param using module if > version 4.9.3, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gambit a6101d0 14/34: fixes autocompletion problem caused by bad choice of modules inclusion, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gambit 1f1c74c 21/34: Delete trailing whitespace, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gambit 09734f0 20/34: Fix indentation, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gambit 9afb60e 12/34: code cleanup,
Philip Kaludercic <=
- [nongnu] elpa/geiser-gambit f2a5259 18/34: Begin the summary lines of all elisp libraries with three semicolons, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gambit 8f6b060 28/34: Gambit has added the commit guid to the version number. The business logic that deals with gambit version numbers has been updated accordingly, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gambit 4f424f4 25/34: imported files moved to new locations, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gambit c19162a 27/34: scheme load path adjustments, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gambit 3a169a4 30/34: autoloads and compilation fix, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gambit 28a1ba1 32/34: remote repl instructions, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gambit 372aab5 04/34: marshall eval and load-file, Philip Kaludercic, 2021/08/01