kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-10-05 18:08:55 +03:00
Code Issues Projects Releases Wiki Activity

process: remove references to Racket from generic .txt files

Browse Source
This commit is contained in:
Nicolas Boulenguez 2021-12-12 15:48:51 +01:00 committed by Joel Martin
parent 23dddd9e93
commit 422a09aabf
7 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
process/step4_if_fn_do.txt
View File

@ -27,7 +27,7 @@ PRINT(exp): return printer.pr_str(exp)
repl_env = new Env()
rep(str): return PRINT(EVAL(READ(str),repl_env))
;; core.EXT: defined using Racket
;; core.EXT: defined using the host language.
core.ns.map((k,v) -> (repl_env.set(k, v)))
;; core.mal: defined using the language itself

2
process/step5_tco.txt
View File

@ -29,7 +29,7 @@ PRINT(exp): return printer.pr_str(exp)
repl_env = new Env()
rep(str): return PRINT(EVAL(READ(str),repl_env))
;; core.EXT: defined using Racket
;; core.EXT: defined using the host language.
core.ns.map((k,v) -> (repl_env.set(k, v)))
;; core.mal: defined using the language itself

2
process/step6_file.txt
View File

@ -29,7 +29,7 @@ PRINT(exp): return printer.pr_str(exp)
repl_env = new Env()
rep(str): return PRINT(EVAL(READ(str),repl_env))
;; core.EXT: defined using Racket
;; core.EXT: defined using the host language.
core.ns.map((k,v) -> (repl_env.set(k, v)))
repl_env.set('eval, (ast) -> EVAL(ast, repl-env))
repl_env.set('*ARGV*, cmdline_args[1..])

2
process/step7_quote.txt
View File

@ -33,7 +33,7 @@ PRINT(exp): return printer.pr_str(exp)
repl_env = new Env()
rep(str): return PRINT(EVAL(READ(str),repl_env))
;; core.EXT: defined using Racket
;; core.EXT: defined using the host language.
core.ns.map((k,v) -> (repl_env.set(k, v)))
repl_env.set('eval, (ast) -> EVAL(ast, repl-env))
repl_env.set('*ARGV*, cmdline_args[1..])

2
process/step8_macros.txt
View File

@ -42,7 +42,7 @@ PRINT(exp): return printer.pr_str(exp)
repl_env = new Env()
rep(str): return PRINT(EVAL(READ(str),repl_env))
;; core.EXT: defined using Racket
;; core.EXT: defined using the host language.
core.ns.map((k,v) -> (repl_env.set(k, v)))
repl_env.set('eval, (ast) -> EVAL(ast, repl-env))
repl_env.set('*ARGV*, cmdline_args[1..])

2
process/step9_try.txt
View File

@ -43,7 +43,7 @@ PRINT(exp): return printer.pr_str(exp)
repl_env = new Env()
rep(str): return PRINT(EVAL(READ(str),repl_env))
;; core.EXT: defined using Racket
;; core.EXT: defined using the host language.
core.ns.map((k,v) -> (repl_env.set(k, v)))
repl_env.set('eval, (ast) -> EVAL(ast, repl-env))
repl_env.set('*ARGV*, cmdline_args[1..])

4
process/stepA_mal.txt
View File

@ -43,13 +43,13 @@ PRINT(exp): return printer.pr_str(exp)
repl_env = new Env()
rep(str): return PRINT(EVAL(READ(str),repl_env))
;; core.EXT: defined using Racket
;; core.EXT: defined using the host language.
core.ns.map((k,v) -> (repl_env.set(k, v)))
repl_env.set('eval, (ast) -> EVAL(ast, repl-env))
repl_env.set('*ARGV*, cmdline_args[1..])
;; core.mal: defined using the language itself
rep("(def! *host-language* \"racket\")")
rep("(def! *host-language* \"...\")")
rep("(def! not (fn* (a) (if a false true)))")
rep("(def! load-file (fn* (f) (eval (read-string (str \"(do \" (slurp f) \"\nnil)\")))))")
rep("(defmacro! cond (fn* (& xs) (if (> (count xs) 0) (list 'if (first xs) (if (> (count xs) 1) (nth xs 1) (throw \"odd number of forms to cond\")) (cons 'cond (rest (rest xs)))))))");