mirror of
https://github.com/kanaka/mal.git
synced 2024-10-27 14:52:16 +03:00
8a19f60386
- Reorder README to have implementation list after "learning tool" bullet. - This also moves tests/ and libs/ into impls. It would be preferrable to have these directories at the top level. However, this causes difficulties with the wasm implementations which need pre-open directories and have trouble with paths starting with "../../". So in lieu of that, symlink those directories to the top-level. - Move the run_argv_test.sh script into the tests directory for general hygiene.
45 lines
890 B
Plaintext
45 lines
890 B
Plaintext
(def! counter (atom 0))
|
|
;=>(atom 0)
|
|
|
|
;; The counter is increased by each `load-file`.
|
|
(load-file "../tests/lib/load-file-once-inc.mal")
|
|
;=>nil
|
|
@counter
|
|
;=>1
|
|
(load-file "../tests/lib/load-file-once-inc.mal")
|
|
;=>nil
|
|
@counter
|
|
;=>2
|
|
|
|
;; load-file-once is available
|
|
(load-file "../lib/load-file-once.mal")
|
|
;=>nil
|
|
|
|
;; First import actually calls `load-file`.
|
|
(load-file-once "../tests/lib/load-file-once-inc.mal")
|
|
;=>nil
|
|
@counter
|
|
;=>3
|
|
|
|
;; Later imports do nothing.
|
|
(load-file-once "../tests/lib/load-file-once-inc.mal")
|
|
;=>nil
|
|
@counter
|
|
;=>3
|
|
|
|
;; Loading the module twice does not reset its memory.
|
|
(load-file "../lib/load-file-once.mal")
|
|
;=>nil
|
|
(load-file-once "../tests/lib/load-file-once-inc.mal")
|
|
;=>nil
|
|
@counter
|
|
;=>3
|
|
|
|
;; even if done with itself
|
|
(load-file-once "../lib/load-file-once.mal")
|
|
;=>nil
|
|
(load-file-once "../tests/lib/load-file-once-inc.mal")
|
|
;=>nil
|
|
@counter
|
|
;=>3
|