diff options
| author | Mistivia <i@mistivia.com> | 2025-06-22 16:17:20 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-06-22 16:17:20 +0800 |
| commit | 5c0eddbed7f838daac17e0b9d9c2a23f17da4660 (patch) | |
| tree | 583026ff5f0614d6e6672e6bbb7879c24c701236 /src/prelude.c | |
| parent | b19a0b2ea246be5610812bf7dd4088e0c4a70952 (diff) | |
min, max
Diffstat (limited to 'src/prelude.c')
| -rw-r--r-- | src/prelude.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/prelude.c b/src/prelude.c index 1389f28..3d1a971 100644 --- a/src/prelude.c +++ b/src/prelude.c @@ -1,6 +1,6 @@ #include "prelude.h" -const char *bamboo_lisp_prelude = "(defvar nil \'())\n\n(defvar pi 3.1415926)\n\n(defmacro incq (i)\n `(setq ,i (+ ,i 1)))\n\n(defmacro decq (i)\n `(setq ,i (- ,i 1)))\n\n(defun zerop (x) (= x 0))\n\n(defmacro when (pred . body)\n `(if ,pred\n (progn ,@body)\n nil))\n\n(defmacro unless (pred . body)\n `(if ,pred\n nil\n (progn ,@body)))\n"; +const char *bamboo_lisp_prelude = "(defvar nil \'())\n\n(defvar pi 3.1415926)\n\n(defmacro incq (i)\n `(setq ,i (+ ,i 1)))\n\n(defmacro decq (i)\n `(setq ,i (- ,i 1)))\n\n(defun zerop (x) (= x 0))\n(defun plusp (x) (> x 0))\n(defun minusp (x) (< x 0))\n\n(defmacro when (pred . body)\n `(if ,pred\n (progn ,@body)\n nil))\n\n(defmacro unless (pred . body)\n `(if ,pred\n nil\n (progn ,@body)))\n"; |
