diff options
| author | Bad Diode <bd@badd10de.dev> | 2021-10-10 18:41:31 +0200 |
|---|---|---|
| committer | Bad Diode <bd@badd10de.dev> | 2021-10-10 18:41:31 +0200 |
| commit | 581116c655df4eb753098e013dd5854df95f7865 (patch) | |
| tree | 5439c196d27ef7d6fe93f96b006f2cca24d8170f /examples/booleans.bdl | |
| parent | 43861f9d91782d864dc9866eee1d39288bb3a76d (diff) | |
| download | bdl-581116c655df4eb753098e013dd5854df95f7865.tar.gz bdl-581116c655df4eb753098e013dd5854df95f7865.zip | |
Add type introspection functions and tests
Diffstat (limited to 'examples/booleans.bdl')
| -rw-r--r-- | examples/booleans.bdl | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/examples/booleans.bdl b/examples/booleans.bdl index 8828ac2..e38fb1f 100644 --- a/examples/booleans.bdl +++ b/examples/booleans.bdl | |||
| @@ -2,15 +2,6 @@ | |||
| 2 | ;; Boolean primitives. | 2 | ;; Boolean primitives. |
| 3 | ;; | 3 | ;; |
| 4 | 4 | ||
| 5 | ;; Boolean test. | ||
| 6 | (print "(boolean? true) -> ") (boolean? true) | ||
| 7 | (print "(boolean? false) -> ") (boolean? false) | ||
| 8 | (print "(boolean? 1) -> ") (boolean? 1) | ||
| 9 | (print "(boolean? 5) -> ") (boolean? 5) | ||
| 10 | (print "(boolean? \"string\") -> ") (boolean? "string") | ||
| 11 | (print "(boolean? (+ 1 2 3)) -> ") (boolean? (+ 1 2 3)) | ||
| 12 | (print "(boolean? (not 1)) -> ") (boolean? (not 1)) | ||
| 13 | |||
| 14 | ;; Not. | 5 | ;; Not. |
| 15 | (print "(not true) -> ") (not true) | 6 | (print "(not true) -> ") (not true) |
| 16 | (print "(not false) -> ") (not false) | 7 | (print "(not false) -> ") (not false) |