persist: Fix indentation throughout.
authorRicardo Wurmus <rekado@elephly.net>
Tue, 4 Jun 2019 11:37:40 +0000 (13:37 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Tue, 4 Jun 2019 11:37:40 +0000 (13:37 +0200)
* modules/language/python/persist.scm: Fix indentation.

modules/language/python/persist.scm

index 1835201..dc1e409 100644 (file)
     (vhash-fold
      (lambda (k v s)
        (if (hash-ref t k)
-          s
-          (begin
-            (hash-set! t k #t)
-            (cons (cons k v) s))))
+              s
+              (begin
+                (hash-set! t k #t)
+                (cons (cons k v) s))))
      '() v)))
 
 (define-method (pcopyable?      (o <p>)) #t)
 
 (define (cp o)
   (match (red o)
-        ((#:reduce mk f)
-         (let ((oo (mk)))
-           (for-each (lambda (x) (apply (car x) oo (cdr x))) f)
-           oo))))
+       ((#:reduce mk f)
+        (let ((oo (mk)))
+          (for-each (lambda (x) (apply (car x) oo (cdr x))) f)
+          oo))))
 
 (define (red o)
   (fluid-set! first #t)
   (list #:reduce
-       (let ((cl (class-of o)))
-         (lambda () (make cl)))                
-       (reduce o)))
+           (let ((cl (class-of o)))
+             (lambda () (make cl)))
+           (reduce o)))
   
 
 (define-method (pcopy (o <p>))
   (list #:obj
-       (aif it (ref o '__copy__)
-            (it)
-            (cp o))))
+           (aif it (ref o '__copy__)
+                (it)
+                (cp o))))
 
 (define-method (deep-pcopy (o <p>) p?)
   (aif it (and p? (ref o '__deepcopy__))
 (define-method (reduce (o <p>))
   (if (fluid-ref first)
       (begin
-       (fluid-set! first #f)
-       (cons
-        (aif it (ref o '__reduce__)
-             (it)
-             (cons
-              (lambda (o args)
-                (let ((h (make-hash-table)))
-                  (slot-set! o 'h h)
-                  (for-each
-                   (lambda (x) (hash-set! h (car x) (cdr x)))
-                   args)))
-              (list
-               (hash-fold
-                (lambda (k v s) (cons (cons k v) s))
-                '()
-                (slot-ref o 'h)))))
-        (next-method)))
+           (fluid-set! first #f)
+           (cons
+            (aif it (ref o '__reduce__)
+                 (it)
+                 (cons
+                  (lambda (o args)
+                        (let ((h (make-hash-table)))
+                          (slot-set! o 'h h)
+                          (for-each
+                           (lambda (x) (hash-set! h (car x) (cdr x)))
+                           args)))
+                  (list
+                       (hash-fold
+                        (lambda (k v s) (cons (cons k v) s))
+                        '()
+                        (slot-ref o 'h)))))
+            (next-method)))
       (next-method)))
 
 (define (fold f s l)
 (define-method (reduce (o <pf>))
   (if (fluid-ref first)
       (begin
-       (fluid-set! first #f)
-       (cons*
-        (cons
-         (lambda (o n args)
-           (slot-set! o 'size n)
-           (slot-set! o 'n    n)
-           (let ((h
-                  (fold              
-                   (lambda (k v s) (vhash-assoc k v s))
-                   vlist-null
-                   args)))
-             (slot-set! o 'h h)))
-         (list (slot-ref o 'n) (vhash->assoc (slot-ref o 'h))))
-        (next-method)))
+           (fluid-set! first #f)
+           (cons*
+            (cons
+             (lambda (o n args)
+               (slot-set! o 'size n)
+               (slot-set! o 'n    n)
+               (let ((h
+                          (fold
+                           (lambda (k v s) (vhash-assoc k v s))
+                           vlist-null
+                           args)))
+                 (slot-set! o 'h h)))
+             (list (slot-ref o 'n) (vhash->assoc (slot-ref o 'h))))
+            (next-method)))
       (next-method)))
      
 (define-syntax cpit
     (syntax-case x ()
       ((_ <c> (o lam a))
        #'(begin    
-          (define-method (pcopyable?      (o <c>)   ) #t)
-          (define-method (deep-pcopyable? (o <c>)   ) #t)
-          (define-method (pcopy           (o <c>)   ) (cp o))
-          (define-method (deep-pcopy      (o <c>) p?) (red o))
-          (define-method (reduce          (o <c>)   )
-            (cons*
-             (cons lam a)
-             (next-method))))))))
+              (define-method (pcopyable?      (o <c>)   ) #t)
+              (define-method (deep-pcopyable? (o <c>)   ) #t)
+              (define-method (pcopy           (o <c>)   ) (cp o))
+              (define-method (deep-pcopy      (o <c>) p?) (red o))
+              (define-method (reduce          (o <c>)   )
+                (cons*
+                 (cons lam a)
+                 (next-method))))))))