From 1e87b01e022361d27a65e63cef09d075c90edd07 Mon Sep 17 00:00:00 2001 From: Calvin Rose Date: Mon, 19 Nov 2018 15:33:19 -0500 Subject: [PATCH] Update makefile. --- natives/sqlite3/Makefile | 2 +- src/core/core.janet | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/natives/sqlite3/Makefile b/natives/sqlite3/Makefile index 73262f38..d9b4526f 100644 --- a/natives/sqlite3/Makefile +++ b/natives/sqlite3/Makefile @@ -44,7 +44,7 @@ sqlite3.c: sqlite-autoconf-3230100/sqlite3.c sqlite3.h: sqlite-autoconf-3230100/sqlite3.h cp $< $@ -%.o: %.c +%.o: %.c sqlite3.h $(CC) $(CFLAGS) -c $< clean: diff --git a/src/core/core.janet b/src/core/core.janet index 70c39111..cef4535c 100644 --- a/src/core/core.janet +++ b/src/core/core.janet @@ -259,7 +259,8 @@ (tuple 'if $fi $fi (aux (+ 1 i))))))))) 0))) (defmacro loop - "A general purpose loop macro. + "A general purpose loop macro. This macro is similar to the Common Lisp + loop macro, although intentonally much smaller in scope. The head of the loop shoud be a tuple that contains a sequence of either bindings or conditionals. A binding is a sequence of three values that define someting to loop over. They are formatted like:\n\n @@ -1328,7 +1329,7 @@ value, one key will be ignored." (def buf @"") (default onvalue (fn [x] (put newenv '_ @{:value x}) - (print (string.pretty x 4 buf)) + (print (string.pretty x 8 buf)) (buffer.clear buf))) (default onerr default-error-handler) (run-context newenv getchunk onvalue onerr "repl"))