From 35984aac4f19ed7ac56e441e0addc1df87a88c61 Mon Sep 17 00:00:00 2001 From: =?utf8?q?J=C3=A9r=C3=B4me=20Benoit?= Date: Mon, 24 Apr 2017 15:28:16 +0200 Subject: [PATCH] Properly indent some code path MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Signed-off-by: Jérôme Benoit --- introduction.lsp | 2 ++ lists.lsp | 18 +++++++++--------- 2 files changed, 11 insertions(+), 9 deletions(-) diff --git a/introduction.lsp b/introduction.lsp index 7e6a7c8..1fe639d 100755 --- a/introduction.lsp +++ b/introduction.lsp @@ -15,6 +15,8 @@ (println hello) (println world) +(println 'hello) +(println 'world) (println (eval 'z)) diff --git a/lists.lsp b/lists.lsp index 432d9c7..273dee0 100755 --- a/lists.lsp +++ b/lists.lsp @@ -12,9 +12,9 @@ ;(println (last '())) (define (list-length a-list) - (if a-list - (+ 1 (list-length (rest a-list))) - 0)) + (if a-list + (+ 1 (list-length (rest a-list))) + 0)) (println (list-length L)) @@ -26,20 +26,20 @@ type list ::= empty-list | first * list (println (+ x 1)) (set 'x 1 'y 2) -(let ((x 3) (y 4)) - (println x) - (println (list x y))) +(let ((x 3) (y 4)) + (println x) + (println (list x y))) (println "x="x" y="y) (setq x 3 y 4) (let ((x 1) (y 2)) - (println "x="x" y="y)) + (println "x="x" y="y)) (println "x="x" y="y) (setq x 3 y 4) (let ((y 2)) - (setq x 5 y 6) - (println "x="x" y="y)) + (setq x 5 y 6) + (println "x="x" y="y)) (println "x="x" y="y) (exit) -- 2.34.1