mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-12-26 00:10:27 +00:00
Code Issues 1 Releases Wiki Activity

Update makefile.

Browse Source
This commit is contained in:
Calvin Rose 2018-11-19 15:33:19 -05:00
parent 4e689c2279
commit 1e87b01e02
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
natives/sqlite3/Makefile
View File

@ -44,7 +44,7 @@ sqlite3.c: sqlite-autoconf-3230100/sqlite3.c
sqlite3.h: sqlite-autoconf-3230100/sqlite3.h sqlite3.h: sqlite-autoconf-3230100/sqlite3.h
cp $< $@ cp $< $@
%.o: %.c %.o: %.c sqlite3.h
$(CC) $(CFLAGS) -c $< $(CC) $(CFLAGS) -c $<
clean: clean:

5
src/core/core.janet
View File

@ -259,7 +259,8 @@
(tuple 'if $fi $fi (aux (+ 1 i))))))))) 0))) (tuple 'if $fi $fi (aux (+ 1 i))))))))) 0)))
(defmacro loop (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 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 either bindings or conditionals. A binding is a sequence of three values
that define someting to loop over. They are formatted like:\n\n that define someting to loop over. They are formatted like:\n\n
@ -1328,7 +1329,7 @@ value, one key will be ignored."
(def buf @"") (def buf @"")
(default onvalue (fn [x] (default onvalue (fn [x]
(put newenv '_ @{:value x}) (put newenv '_ @{:value x})
(print (string.pretty x 4 buf)) (print (string.pretty x 8 buf))
(buffer.clear buf))) (buffer.clear buf)))
(default onerr default-error-handler) (default onerr default-error-handler)
(run-context newenv getchunk onvalue onerr "repl")) (run-context newenv getchunk onvalue onerr "repl"))