mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-25 01:37:19 +00:00
Code Issues 1 Releases Wiki Activity

Add defn- form for private defs.

Browse Source
This commit is contained in:
Calvin Rose 2018-03-12 00:57:13 -04:00
parent 3b2658150e
commit 8445b1187f
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/compiler/boot.dst
View File

@ -26,6 +26,12 @@
(def args (array-concat [] name 'macro more)) (def args (array-concat [] name 'macro more))
(apply defn* args)))) (apply defn* args))))
(defmacro defn-
"Define a private function that will not be exported."
[name & more]
(apply tuple (array-concat
['defn name 'private] more)))
(defmacro when (defmacro when
"(when cond & body) "(when cond & body)
Evaluates the body when the condition is true. Otherwise returns nil." Evaluates the body when the condition is true. Otherwise returns nil."
@ -80,7 +86,10 @@
(defmacro or [x y] (tuple 'if x true y)) (defmacro or [x y] (tuple 'if x true y))
(defmacro and [x y] (tuple 'if x y false)) (defmacro and [x y] (tuple 'if x y false))
(def identity (fn [x] x)) (defn identity
"(identity x)
A function that returns its first argument."
[x] x)
(def seq (do (def seq (do
(defn array-seq [x] (defn array-seq [x]
@ -294,7 +303,8 @@
} (apply table args)) } (apply table args))
(defn one [pair] (defn one [pair]
(def [k v] pair) (def [k v] pair)
(put *env* (symbol (if prefix prefix "") k) v)) (when (not (get v 'private))
(put *env* (symbol (if prefix prefix "") k) v)))
(doseq (map one (pairs env)))) (doseq (map one (pairs env))))
(defn repl [] (defn repl []