lassik/upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Brand as Up Scheme

Browse Source
This commit is contained in:
lassik
2019-08-10 12:26:51 +03:00
parent 93813a9eb1
commit 4c391d6d68
5 changed files with 32 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scheme-boot/flisp.boot
+19 -34
View File
@@ -1,36 +1,21 @@
(*banner* "; _\n; |_ _ _ |_ _ | . _ _\n; | (-||||_(_)|__|_)|_)\n;-------------------|--\n\n"
*builtins* [0 0 0 0 0 0 0 0 0 0 0 0 #fn("7000r2|}<;" [])
#fn("7000r2|}=;" [])
#fn("7000r2|}>;" [])
#fn("6000r1|?;" [])
#fn("6000r1|@;" [])
#fn("6000r1|A;" [])
#fn("6000r1|B;" [])
#fn("6000r1|C;" [])
#fn("6000r1|D;" [])
#fn("6000r1|E;" [])
#fn("6000r1|F;" [])
#fn("6000r1|G;" [])
#fn("6000r1|H;" [])
#fn("6000r1|I;" [])
#fn("6000r1|J;" [])
#fn("7000r2|}K;" [])
#fn("8000s0|;" []) #fn("6000r1|M;" [])
#fn("6000r1|N;" [])
#fn("7000r2|}O;" [])
#fn("7000r2|}P;" [])
#fn("9000s0c0|v2;" [#.apply])
#fn("9000s0c0|v2;" [#.+])
#fn("9000s0c0|v2;" [#.-])
#fn("9000s0c0|v2;" [#.*])
#fn("9000s0c0|v2;" [#./])
#fn("9000s0c0|v2;" [#.div0])
#fn("7000r2|}W;" [])
#fn("7000r2|}X;" [])
#fn("7000r2|}Y;" [])
#fn("9000s0c0|v2;" [#.vector])
#fn("7000r2|}[;" [])
#fn("8000r3|}g2\\;" [])]
(*banner* "Up Scheme\n" *builtins*
[0 0 0 0 0 0 0 0 0 0 0 0 #fn("7000r2|}<;" [])
#fn("7000r2|}=;" []) #fn("7000r2|}>;" [])
#fn("6000r1|?;" []) #fn("6000r1|@;" [])
#fn("6000r1|A;" []) #fn("6000r1|B;" [])
#fn("6000r1|C;" []) #fn("6000r1|D;" [])
#fn("6000r1|E;" []) #fn("6000r1|F;" [])
#fn("6000r1|G;" []) #fn("6000r1|H;" [])
#fn("6000r1|I;" []) #fn("6000r1|J;" [])
#fn("7000r2|}K;" []) #fn("8000s0|;" [])
#fn("6000r1|M;" []) #fn("6000r1|N;" [])
#fn("7000r2|}O;" []) #fn("7000r2|}P;" [])
#fn("9000s0c0|v2;" [#.apply]) #fn("9000s0c0|v2;" [#.+])
#fn("9000s0c0|v2;" [#.-]) #fn("9000s0c0|v2;" [#.*])
#fn("9000s0c0|v2;" [#./]) #fn("9000s0c0|v2;" [#.div0])
#fn("7000r2|}W;" []) #fn("7000r2|}X;" [])
#fn("7000r2|}Y;" []) #fn("9000s0c0|v2;" [#.vector])
#fn("7000r2|}[;" []) #fn("8000r3|}g2\\;" [])]
*interactive* #f *syntax-environment*
#table(with-bindings #fn(">000s1c0qc1c2|32c1e3|32c1c4|3243;" [#fn("B000r3c0c1L1c2c3g2|33L1c4c2c5|}3331c6c0c7L1c4\x7f3132c0c7L1c4c2c8|g2333132L3L144;" [#fn(nconc)
let #fn(map) #.list #fn(copy-list) #fn("8000r2c0|}L3;" [set!]) unwind-protect
@@ -388,7 +373,7 @@
ref-int32-LE #fn("=000r2e0c1|}`w[`32c1|}aw[b832c1|}b2w[b@32c1|}b3w[bH32R441;" [int32
#fn(ash)] ref-int32-LE)
repl #fn("8000r0c0]]42;" [#fn("6000r2c0m02c1qm12}302e240;" [#fn("8000r0e0c1312c2e3312c4c5c6t41;" [princ
"> " #fn(io.flush) *output-stream* #fn("8000r1c0e131@16<02c2e3|3141;" [#fn(io.eof?)
"up> " #fn(io.flush) *output-stream* #fn("8000r1c0e131@16<02c2e3|3141;" [#fn(io.eof?)
*input-stream* #fn("7000r1e0|312|k12];" [print that]) load-process])
#fn("6000r0c040;" [#fn(read)]) #fn("7000r1c0e1312c2|41;" [#fn(io.discardbuffer)
*input-stream* #fn(raise)])] prompt)