[0025] gf fmt for goldfish, and tests/liii (#788)

Author: da-liii

goldfish/liii/vector.scm

@@ -42,7 +42,12 @@
   (begin
 
     (define (vector-filter pred vec)
-      (list->vector (vector-fold-right (lambda (elem acc) (if (pred elem) (cons elem acc) acc)) '() vec)))
+      (list->vector (vector-fold-right (lambda (elem acc) (if (pred elem) (cons elem acc) acc))
+                      '()
+                      vec
+                    ) ;vector-fold-right
+      ) ;list->vector
+    ) ;define
 
     (define (vector-contains? vec elem . args)
       (let ((cmp (if (null? args) equal? (car args))))

tests/liii/config-parser/config-read-file-test.scm

@@ -1,8 +1,4 @@
-(import (liii check)
-  (liii config-parser)
-  (liii raw-string)
-  (scheme base)
-) ;import
+(import (liii check) (liii config-parser) (liii raw-string) (scheme base))
 
 (check-set-mode! 'report-failed)