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.
41 lines
566 B
PostScript
41 lines
566 B
PostScript
% read
|
|
/_readline { print flush (%stdin) (r) file 1024 string readline } def
|
|
|
|
/READ {
|
|
% just "return" the input string
|
|
/str exch def
|
|
str
|
|
} def
|
|
|
|
|
|
% eval
|
|
/EVAL {
|
|
% just "return" the "ast"
|
|
/env exch def
|
|
/ast exch def
|
|
ast
|
|
} def
|
|
|
|
|
|
% print
|
|
/PRINT {
|
|
% just "return" the expression
|
|
/exp exch def
|
|
exp
|
|
} def
|
|
|
|
|
|
% repl
|
|
/REP { READ (stub env) EVAL PRINT } def
|
|
|
|
% repl loop
|
|
{ %loop
|
|
(user> ) _readline
|
|
not { exit } if % exit if EOF
|
|
|
|
REP print (\n) print
|
|
} bind loop
|
|
|
|
(\n) print % final newline before exit for cleanliness
|
|
quit
|