shithub: sl

Info  •  Files  •  Log  •  Branches

system.lsp: format a bit

--- a/src/system.lsp

+++ b/src/system.lsp

@@ -328,7 +328,8 @@

        (or (pred (car lst))

            (any pred (cdr lst)))))

-(def (list? a) (or (not a) (and (cons? a) (list? (cdr a)))))

+(def (list? a)

+  (or (not a) (and (cons? a) (list? (cdr a)))))

 (def (list-tail lst n)

   (if (<= n 0)

@@ -580,8 +581,10 @@

                 body))

         ,(cadar binds))))

-(defmacro (when   c . body) (list 'if c (cons 'begin body) nil))

-(defmacro (unless c . body) (list 'if c nil (cons 'begin body)))

+(defmacro (when   c . body)

+  (list 'if c (cons 'begin body) nil))

+(defmacro (unless c . body)

+  (list 'if c nil (cons 'begin body)))

 (defmacro (case key . clauses)

   (def (vals->cond key v)

@@ -640,7 +643,8 @@

                     (set! acc (cdr acc))))

         first)))

-(def (iota n) (map-int identity n))

+(def (iota n)

+  (map-int identity n))

 (defmacro (with-bindings binds . body)

   (let ((vars (map car binds))

@@ -654,9 +658,11 @@

 ;;; exceptions

-(def (error . args) (raise (cons 'error args)))

+(def (error . args)

+  (raise (cons 'error args)))

-(defmacro (throw tag value) `(raise (list 'thrown-value ,tag ,value)))

+(defmacro (throw tag value)

+  `(raise (list 'thrown-value ,tag ,value)))

 (defmacro (catch tag expr)

   `(trycatch ,expr

              (λ (e#) (if (and (cons? e#)