mirror of
https://github.com/kanaka/mal.git
synced 2024-08-17 17:50:24 +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.
20 lines
513 B
Plaintext
20 lines
513 B
Plaintext
(de load-history (File)
|
|
(when (info File)
|
|
(in File
|
|
(until (eof)
|
|
(native "libreadline.so" "add_history" NIL (line T)) ) ) ) )
|
|
|
|
(de save-to-history (Input)
|
|
(when Input
|
|
(native "libreadline.so" "add_history" NIL Input)
|
|
(out "+.mal_history"
|
|
(prinl Input) ) ) )
|
|
|
|
(de readline (Prompt)
|
|
(let Input (native "libreadline.so" "readline" 'N Prompt)
|
|
(if (=0 Input)
|
|
0
|
|
(prog1
|
|
(struct Input 'S)
|
|
(save-to-history @) ) ) ) )
|