Ben / Nujel

#{##["Nujel Standalone" test-context file/eval [path environment] #@[documentation: "Evaluate a Nujel source file in the current context" source: ["Evaluate a Nujel source file in the current context" [when-not environment [set! environment root-closure]] [eval-in environment [cons 'do [read [file/read path]]]]]] #{##[environment root-closure eval-in do read file/read path]
0E000B0007240900070E0105000D0E020E001A030E040E050E06040104011404
0201
} file/compile [path environment] #@[documentation: "Compile a Nujel source file into optimized object code" source: ["Compile a Nujel source file into optimized object code" [def source [cons 'do [read [file/read path]]]] [def object-code [compile* source [or environment [environment*]]]] [file/write [if object-code [string/write object-code] ""] [cat [path/without-extension path] ".no"]] [return object-code]]] #{##[do read file/read path source compile* environment #f object-code file/write string/write "" cat path/without-extension ".no"]
1A000E010E020E03040104011407040D0E050E040E060C0A00100D15240D1316
0C0A00060D1A07040207080D0E090E080B000C0E0A0E0804010900051A0B0E0C
0E0D0E0304011A0E040204020D0E080101
} file/compile/module [path environment base-dir] #@[documentation: "Compile a Nujel source file into optimized object code" source: ["Compile a Nujel source file into optimized object code" [def module-name [string->keyword [path/without-extension [string/cut path [length base-dir]]]]] [def source [quasiquote [defmodule/defer [unquote module-name] [def *module* [unquote module-name]] [unquote-splicing [read [file/read path]]]]]] [def object-code [compile* source [or environment [environment*]]]] [file/write [if object-code [string/write object-code] ""] [cat [path/without-extension path] ".no"]] [return object-code]]] #{##[symbol->keyword string->symbol path/without-extension string/cut path length base-dir module-name defmodule/defer def *module* append read file/read source compile* environment #f object-code file/write string/write "" cat ".no"]
0E000E010E020E030E040E050E060401040204010401040107070D1A080E071A
091A0A0E07241414140E0B0E0C0E0D0E0404010401240402141414070E0D0E0F
0E0E0E100C0A00100D15240D13160C0A00060D1A11040207120D0E130E120B00
0C0E140E1204010900051A150E160E020E0404011A17040204020D0E120101
} file/compile/argv [#nil] #@[source: [[def path [car [last-pair repl/args]]] [def module [index-of path "_modules/"]] [if [>= module 0] [file/compile/module path #nil [string/cut path 0 [+ module 9]]] [file/compile path]]]] #{##[last-pair repl/args path index-of "_modules/" module file/compile/module string/cut file/compile]
0E000E0104011107020D0E030E021A04040207050D0E050200210B001A0E060E
02240E070E0202000E05020925040304030900090E080E02040101
} file/test/module/run [tests module-name] #@[source: [[require :test] [doseq [expr tests] [test/run-test! [eval [cadr expr]] [quasiquote [do [require [unquote module-name]] [unquote-splicing [cddr expr]]]]]]]] #{##[require* :test current-closure tests ΓεnΣym-1 :pair type-of throw list :type-error "Improper list detected, please provide a proper list instead" current-lambda "Expected a value of type :pair" expr test/run-test! eval-in do require module-name append]
0E001A010E0204001B04030D150E0307040D2409007A0D1A050E060E04040120
0B0007240900150E070E081A091A0A0E030E0B0400040404010D0E060E040401
1A05200B0007240900150E070E081A091A0C0E040E0B0400040404010D0E0411
070D0D0E0E0E0F0E0204000E0D121104021A101A110E122414140E130E0D1212
240402141404020D0E041205040E040AFF871601
} valid-test-form? [form] #@[source: [[== [car form] 'deftest]]] #{##[form deftest]
0E00111A012001
} file/test/module [path base-dir] #@[documentation: "Test a module by running all contained tests" source: ["Test a module by running all contained tests" [def rel-path [string/cut path [length base-dir]]] [when [== [char-at rel-path 0] 47] [set! rel-path [string/cut rel-path 1]]] [def module-name [string->keyword [path/without-extension rel-path]]] [require :test] [test/init!] [-> [read [file/read path]] [filter valid-test-form?] [file/test/module/run module-name]] [test/finish! [ansi-blue module-name]]]] #{##[string/cut path length base-dir rel-path char-at symbol->keyword string->symbol path/without-extension module-name require* :test current-closure test/init! file/test/module/run filter read file/read valid-test-form? test/finish! ansi-blue]
0E000E010E020E030401040207040D0E050E0402000402022F200B00100E000E
04020104020504090004240D0E060E070E080E0404010401040107090D0E0A1A
0B0E0C04001B04030D0E0D04000D0E0E0E0F0E100E110E01040104010E120402
0E0904020D0E130E140E090401040101
} file/test/directory [base-dir] #@[documentation: "Compile a Nujel source file into optimized object code" source: ["Compile a Nujel source file into optimized object code" [-> [directory/read-recursive base-dir] [flatten] [sort] [filter [path/ext?! "nuj"]] [map [fn [path] [file/test/module path base-dir]]] [sum]]]] #{##[sum map filter sort flatten directory/read-recursive base-dir path/ext?! "nuj" anonymous [path] #@[source: [[file/test/module path base-dir]]] #{##[file/test/module path base-dir]
0E000E010E02040201
}]
0E000E010E020E030E040E050E060401040104010E071A08040104021A091A0A
1A0B1A0C170402040101
} load [filename] #@[source: [[try [fn [err] [display/error err] #f] [file/eval filename] [pfmtln "Loaded {filename}"] #t]]] #{##[anonymous [err] #@[source: [[display/error err] #f]] #{##[display/error err]
0E000E0104010D1C01
} file/eval filename println cat "Loaded "]
1A001A011A021A03171900190E040E0504010D0E060E071A080E05040204010D
1B1601
} file/file? [filename] #@[source: [[ref [file/stat filename] :regular-file?]]] #{##[ref file/stat filename :regular-file?]
0E000E010E0204011A03040201
} file/dir? [filename] #@[source: [[ref [file/stat filename] :directory?]]] #{##[ref file/stat filename :directory?]
0E000E010E0204011A03040201
} directory/read-relative [path] #@[source: [[map [directory/read path] [fn [a] [cat path "/" a]]]]] #{##[map directory/read path anonymous [a] #@[source: [[cat path "/" a]]] #{##[cat path "/" a]
0E000E011A020E03040301
}]
0E000E010E0204011A031A041A051A0617040201
} directory/read-recursive [path] #@[source: [[flatten [map [directory/read-relative path] [fn [A] [if [file/dir? A] [directory/read-recursive A] A]]]]]] #{##[flatten map directory/read-relative path anonymous [A] #@[source: [[if [file/dir? A] [directory/read-recursive A] A]]] #{##[file/dir? A directory/read-recursive]
0E000E0104010B000C0E020E0104010900050E0101
}]
0E000E010E020E0304011A041A051A061A07170402040101
} popen/trim [cmd] #@[documentation: "Run CMD using popen and return the trimmed stdout" source: ["Run CMD using popen and return the trimmed stdout" [trim [cdr [popen cmd]]]]] #{##[trim popen cmd]
0E000E010E02040112040101
} path/working-directory +root-working-dir+ file/module-loader [name] #@[source: [[def module-path [fmt "{+root-working-dir+}/modules/{}.nuj" [keyword->string name]]] [def source [file/read module-path]] [when-not source [return #nil]] [def expr [list 'module [cons do [read source]]]] [def mod [eval expr]] [return mod]]] #{##[keyword->string name fmt-arg-0 cat +root-working-dir+ "/modules/" ".nuj" module-path file/read source list module do read expr eval-in current-closure mod]
150E000E01040107020D0E030E041A050E021A0604041607070D0E080E070401
07090D0E090B00072409000524010D0E0A1A0B0E0C0E0D0E090401140402070E
0D0E0F0E1004000E0E040207110D0E110101
} module/add-loader]
1A0007010D1A021A031A041A051707020D1A061A071A081A091707060D1A0A1A
0B1A0C1A0D17070A0D1A0E1A0F1A101A1117070E0D1A121A131A141A15170712
0D1A161A171A181A191707160D1A1A1A1B1A1C1A1D17071A0D1A1E1A1F1A201A
2117071E0D1A221A231A241A251707220D1A261A271A281A291707260D1A2A1A
2B1A2C1A2D17072A0D1A2E1A2F1A301A3117072E0D1A321A331A341A35170732
0D1A361A371A381A391707360D0E3A0400073B0D1A3C1A3D1A3E1A3F17073C0D
0E400E3C040101
}#{##[slurp/buffer [pathname] #@[documentation: "Read the entirety of PATHNAME and return it as a string if possible, otherwise return #nil." source: ["Read the entirety of PATHNAME and return it as a string if possible, otherwise return #nil." [def fh [file/open* pathname "r"]] [when-not fh [return #nil]] [try [fn [#nil] [file/close* fh] [return #nil]] [file/seek* fh 0 2] [def size [file/tell* fh]] [file/seek* fh 0 0] [def buf [buffer/allocate size]] [file/read* fh buf size] [file/close* fh] [return buf]]]] #{##[file/open* pathname "r" fh anonymous [#nil] #@[source: [[file/close* fh] [return #nil]]] #{##[file/close* fh]
0E000E0104010D240101
} file/seek* file/tell* size buffer/allocate buf file/read* file/close*]
0E000E011A02040207030D0E030B00072409000524010D1A041A051A061A0717
1900410E080E030200020204030D0E090E030401070A0D0E080E030200020004
030D0E0B0E0A0401070C0D0E0D0E030E0C0E0A04030D0E0E0E0304010D0E0C01
1601
} file/read/buffer slurp [pathname] #@[documentation: "Read the entirety of PATHNAME and return it as a string if possible, otherwise return #nil." source: ["Read the entirety of PATHNAME and return it as a string if possible, otherwise return #nil." [buffer->string [slurp/buffer pathname]]]] #{##[buffer->string slurp/buffer pathname]
0E000E010E020401040101
} file/read spit [pathname content] #@[documentation: "Read the entirety of PATHNAME and return it as a string if possible, otherwise return #nil." source: ["Read the entirety of PATHNAME and return it as a string if possible, otherwise return #nil." [def fh [file/open* pathname "w"]] [when-not fh [return #f]] [try [fn [#nil] [file/close* fh] [return #f]] [file/write* fh content] [file/close* fh]] [return #t]]] #{##[file/open* pathname "w" fh anonymous [#nil] #@[source: [[file/close* fh] [return #f]]] #{##[file/close* fh]
0E000E0104010D1C0101
} file/write* content file/close*]
0E000E011A02040207030D0E030B0007240900051C010D1A041A051A061A0717
1900130E080E030E0904020D0E0A0E030401160D1B0101
} file/write [content pathname] #@[documentation: "Writes CONTENT into PATHNAME" source: ["Writes CONTENT into PATHNAME" [spit pathname content]]] #{##[spit pathname content]
0E000E010E02040201
} make-output-port make-input-port make-input/output-port tree/new output-port-method-table input-port-method-table buffer/allocate temporary-buffer buffer/view/u8* temporary-buffer-view tree/set! :file-handle anonymous [handle] #@[source: [handle]] #{##[handle]
0E0001
} :write-char [handle char] #@[source: [[buffer/view/set! output-port-temporary-buffer-vi 0 char] [file/write* handle output-port-temporary-buffer-vi]]] #{##[buffer/view/set! output-port-temporary-buffer-vi char file/write* handle]
0E000E0102000E0204030D0E030E040E01040201
} :flush-output-port [handle] #@[source: [[file/flush* handle]]] #{##[file/flush* handle]
0E000E01040101
} :block-write [handle buffer size] #@[source: [[file/write* handle buffer size]]] #{##[file/write* handle buffer size]
0E000E010E020E03040301
} :block-read [handle buffer size] #@[source: [[exception :type-error "Can't read from an output port" handle]]] #{##[throw list :type-error "Can't read from an output port" handle current-lambda]
0E000E011A021A030E040E0504000404040101
} :read-char tree/ref :close-port [handle] #@[source: [[file/close* handle]]] #{##[file/close* handle]
0E000E01040101
} :file-position [handle] #@[source: [[file/tell* handle]]] #{##[file/tell* handle]
0E000E01040101
} :file-position! [handle new-position] #@[source: [[file/seek* handle new-position 0]]] #{##[file/seek* handle new-position]
0E000E010E020200040301
} [handle char] #@[source: [[when [file/eof*? handle] [return :end-of-file]] [file/read* handle temporary-buffer-view 1] [buffer/view/ref temporary-buffer-view 0 char]]] #{##[file/eof*? handle :end-of-file file/read* temporary-buffer-view buffer/view/ref char]
0E000E0104010B00091A0201090004240D0E030E010E04020104030D0E050E04
02000E06040301
} [handle buffer size] #@[source: [[when [file/eof*? handle] [return :end-of-file]] [file/read* handle buffer size]]] #{##[file/eof*? handle :end-of-file file/read* buffer size]
0E000E0104010B00091A0201090004240D0E030E010E040E05040301
} [handle buffer size] #@[source: [[exception :type-error "Can't write to an input port" handle]]] #{##[throw list :type-error "Can't write to an input port" handle current-lambda]
0E000E011A021A030E040E0504000404040101
} [handle] #@[documentation: "\n" source: ["" [def self [fn [method . args] [apply [tree/ref output-port-method-table method] [cons handle args]]]]]] #{##[anonymous [method . args] #@[source: [[apply [tree/ref output-port-method-table method] [cons handle args]]]] #{##[apply tree/ref output-port-method-table method handle args]
0E000E010E020E0304020E040E0514040201
} self]
1A001A011A021A0317070401
} [handle] #@[documentation: "\n" source: ["" [def self [fn [method . args] [apply [tree/ref input-port-method-table method] [cons handle args]]]]]] #{##[anonymous [method . args] #@[source: [[apply [tree/ref input-port-method-table method] [cons handle args]]]] #{##[apply tree/ref input-port-method-table method handle args]
0E000E010E020E0304020E040E0514040201
} self]
1A001A011A021A0317070401
} stdin* stdin current-input-port [#nil] #@[source: [stdin]] #{##[stdin]
0E0001
} current-input-port! [nport] #@[source: [[set! stdin nport]]] #{##[nport stdin]
0E00050101
} stdout* stdout current-output-port [#nil] #@[source: [stdout]] #{##[stdout]
0E0001
} current-output-port! [nport] #@[source: [[set! stdout nport]]] #{##[nport stdout]
0E00050101
} stderr* stderr current-error-port [#nil] #@[source: [stderr]] #{##[stderr]
0E0001
} current-error-port! [nport] #@[source: [[set! stderr nport]]] #{##[nport stderr]
0E00050101
} print [v] #@[documentation: "Display V on the standard output port" source: ["Display V on the standard output port" [stdout 'block-write [string v]]]] #{##[stdout block-write string v]
0E001A010E020E030401040201
} error [v] #@[documentation: "Prints v on the standard error port" source: ["Prints v on the standard error port" [stderr 'block-write [string v]]]] #{##[stderr block-write string v]
0E001A010E020E030401040201
} read-line/raw [port buf] #@[documentation: "Reads in a line of user input and returns it" source: ["Reads in a line of user input and returns it" [def i 0] [def c 0] [def view [buffer/view/u8* buf]] [while #t [while [>= i [buffer/length buf]] [buffer/length! [+ 128 [buffer/length buf]]]] [set! c [port 'read-char]] [when [or [== c 10] [== c :end-of-file]] [return i]] [buffer/view/set! view i c] [set! i [inc i]]]]] #{##[i c buffer/view/u8* buf view buffer/length! 128 buffer/length port read-char :end-of-file #f buffer/view/set!]
020007000D020007010D0E020E03040107040D2409005F0D240900110D0E051A
060E070E0304012504010E000E070E030401210AFFE90D0E081A09040105010D
0E01020A200C0A00100D0E011A0A200C0A00060D1A0B0B00090E000109000424
0D0E0C0E040E000E0104030D02010E002505001B0AFFA301
} read-line [#nil] #@[documentation: "Reads in a line of user input and returns it" source: ["Reads in a line of user input and returns it" [def buf [buffer/allocate 128]] [buffer->string buf [read-line/raw stdin buf]]]] #{##[buffer/allocate 128 buf buffer->string read-line/raw stdin]
0E001A01040107020D0E030E020E040E050E020402040201
} input]
1A001A011A021A031707000D0E0007040D1A051A061A071A081707050D0E0507
090D1A0A1A0B1A0C1A0D17070A0D1A0E1A0F1A101A1117070E0D2407120D2407
130D2407140D150E1524040107160D0E1524040107170D0E180201040107190D
0E1A0E190401071B0D0E1C0E161A1D1A1E1A1F1A201A211704030D0E1C0E161A
221A1E1A231A241A251704030D0E1C0E161A261A1E1A271A281A291704030D0E
1C0E161A2A1A1E1A2B1A2C1A2D1704030D0E1C0E161A2E1A1E1A2F1A301A3117
04030D0E1C0E161A320E330E161A2E040204030D0E1C0E161A341A1E1A351A36
1A371704030D0E1C0E161A381A1E1A391A3A1A3B1704030D0E1C0E161A3C1A1E
1A3D1A3E1A3F1704030D0E1C0E171A321A1E1A401A411A421704030D0E1C0E17
1A2E1A1E1A431A441A451704030D0E1C0E171A2A1A1E1A461A471A481704030D
0E1C0E171A220E330E161A2A040204030D0E1C0E171A340E330E161A34040204
030D0E1C0E171A1D0E330E161A1D040204030D0E1C0E171A380E330E161A3804
0204030D0E1C0E171A3C0E330E161A3C040204030D1A1E1A491A4A1A4B170512
0D1A1E1A4C1A4D1A4E170513160D0E130E4F040107500D1A511A521A531A5417
07510D1A551A561A571A581707550D0E120E590401075A0D1A5B1A5C1A5D1A5E
17075B0D1A5F1A601A611A6217075F0D0E120E63040107640D1A651A661A671A
681707650D1A691A6A1A6B1A6C1707690D1A6D1A6E1A6F1A7017076D0D1A711A
721A731A741707710D1A751A761A771A781707750D1A791A7A1A7B1A7C170779
0D0E79077D01
}#{##[*1 *2 *3 "nujel" repl/executable-name repl/args repl/parse-args/eval-next repl/parse-args/run-repl tree/new repl/options repl/option-map repl/exception-handler [error] #@[source: [[display/error error]]] #{##[display/error error]
0E000E01040101
} repl/welcome [#nil] #@[source: [[println [cat [ansi-rainbow "Nujel"] " is ready for business!"]]]] #{##[println cat ansi-rainbow "Nujel" " is ready for business!"]
0E000E010E021A0304011A040402040101
} repl/prompt [#nil] #@[documentation: ">" source: ["> "]] #{##["> "]
1A0001
} repl/wasm [line] #@[documentation: "Evaluate LINE in the wasm context" source: ["Evaluate LINE in the wasm context" [try repl/exception-handler [eval-in root-closure [cons do [read line]]]]]] #{##[repl/exception-handler eval-in root-closure do read line]
0E001900130E010E020E030E040E0504011404021601
} repl/cmd/raw [ctx line] #@[source: [[try [fn [err] [if [= [car err] :unmatched-opening-bracket] [repl/cmd/raw ctx [cat line [readline "... "]]] [throw err]]] [def expr [read line]] [when [equal? '[#nil] expr] [print "\r"] [return]] [def result [eval-in ctx [cons do expr]]] [repl/push-result result] [println [if [nil? result] "" [string result]]]]]] #{##[anonymous [err] #@[source: [[if [= [car err] :unmatched-opening-bracket] [repl/cmd/raw ctx [cat line [readline "... "]]] [throw err]]]] #{##[err :unmatched-opening-bracket repl/cmd/raw ctx cat line readline "... " throw]
0E00111A01200B00180E020E030E040E050E061A070401040204020900090E08
0E00040101
} read line expr equal? [#nil] print "\r" eval-in ctx do result repl/push-result println nil? "" string]
1A001A011A021A03171900530E040E05040107060D0E071A080E0604020B000F
0E091A0A04010D2401090004240D0E0B0E0C0E0D0E06140402070E0D0E0F0E0E
04010D0E100E110E0E04010B00081A120900090E130E0E040104011601
} repl/push-result [result] #@[source: [[set! *3 *2] [set! *2 *1] [set! *1 result] [return result]]] #{##[*2 *3 *1 result]
0E0005010D0E0205000D0E0305020D0E030101
} repl/cmd [ctx] #@[source: [[def buf ""] [def line ""] [while [not= line "[/cmd]\n"] [set! buf [cat buf line]] [set! line [readline]]] [def expr [cons do [read buf]]] [def result [eval-in ctx expr]] [repl/push-result result] [println [if [nil? result] "" [string result]]]]] #{##["" buf line cat readline not= "[/cmd]\n" do read expr eval-in ctx result repl/push-result println nil? string]
1A0007010D1A0007020D240900150D0E030E010E02040205010D0E0404000502
0E050E021A0604020AFFE60D0E070E080E0104011407090D0E0A0E0B0E090402
070C0D0E0D0E0C04010D0E0E0E0F0E0C04010B00081A000900090E100E0C0401
040101
} repl/readline [ctx] #@[source: [[def line [readline [repl/prompt]]] [when [nil? line] [display "Adios, cowboy...\r\n"] [exit 0]] [if [= line "[cmd]\n"] [repl/cmd ctx] [repl/cmd/raw ctx line]]]] #{##[readline repl/prompt line nil? print "Adios, cowboy...\r\n" exit "[cmd]\n" repl/cmd ctx repl/cmd/raw]
0E000E010400040107020D0E030E0204010B00130E041A0504010D0E06020004
01090004240D0E021A07200B000C0E080E09040109000B0E0A0E090E02040201
} repl [#nil] #@[source: [[repl/welcome] [while #t [try repl/exception-handler [repl/readline root-closure]]]]] #{##[repl/welcome repl/exception-handler repl/readline root-closure]
0E0004000D240900100D0E0119000A0E020E030401161B0AFFF201
} repl/print-help [#nil] #@[source: [[println [cat [ansi-rainbow "Nujel"] " - A Lisp dialect for games.\n"]] [println [cat [ansi-green "Usage:"] " nujel [options] [command_string | file]"]] [println [cat "\nLow-level options - for work on the runtime itself"]] [println [cat "  " [ansi-yellow "v"] " - be verbose"]] [println [cat "\nHigh-level options - for working with/on Nujel code"]] [println [cat "  " [ansi-blue "x"] " - Run the expression following this argument directly"]] [println [cat "  " [ansi-blue "h"] " - Print this help screen"]] [println [cat "\nLong options - for working with/on Nujel code"]] [println [cat "  " [ansi-blue "no-color"] " - Disable ANSI color"]] [println [cat "  " [ansi-blue "color   "] " - Enable ANSI color"]]]] #{##[println cat ansi-rainbow "Nujel" " - A Lisp dialect for games.\n" ansi-green "Usage:" " nujel [options] [command_string | file]" "\nLow-level options - for work on the runtime itself" "  " ansi-yellow "v" " - be verbose" "\nHigh-level options - for working with/on Nujel code" ansi-blue "x" " - Run the expression following this argument directly" "h" " - Print this help screen" "\nLong options - for working with/on Nujel code" "no-color" " - Disable ANSI color" "color   " " - Enable ANSI color"]
0E000E010E021A0304011A04040204010D0E000E010E051A0604011A07040204
010D0E000E011A08040104010D0E000E011A090E0A1A0B04011A0C040304010D
0E000E011A0D040104010D0E000E011A090E0E1A0F04011A10040304010D0E00
0E011A090E0E1A1104011A12040304010D0E000E011A13040104010D0E000E01
1A090E0E1A1404011A15040304010D0E000E011A090E0E1A1604011A17040304
0101
} tree/set! h anonymous [option] #@[source: [[repl/print-help] [set! repl/parse-args/run-repl #f]]] #{##[repl/print-help repl/parse-args/run-repl]
0E0004000D1C050101
} no-color [option] #@[source: [[set! ansi/disabled ""]]] #{##["" ansi/disabled]
1A00050101
} color [option] #@[source: [[set! ansi/disabled #f]]] #{##[ansi/disabled]
1C050001
} x [option] #@[source: [[set! repl/parse-args/eval-next #t] [set! repl/parse-args/run-repl #f]]] #{##[repl/parse-args/eval-next repl/parse-args/run-repl]
1B05000D1C050101
} :default [option] #@[source: [[tree/set! repl/options option #t]]] #{##[tree/set! repl/options option]
0E000E010E021B040301
} repl/parse-option [option] #@[source: [[[or [ref repl/option-map option] [ref repl/option-map :default]] option]]] #{##[ref repl/option-map option :default #f]
0E000E010E0204020C0A00130D0E000E011A0304020C0A00060D1A040E020401
01
} repl/parse-options [options] #@[source: [[if [= [char-at options 0] 45] [repl/parse-option [string->keyword [cut options 1]]] [for-each [map [split options ""] string->symbol] repl/parse-option]]]] #{##[char-at options repl/parse-option symbol->keyword string->symbol cut for-each map split ""]
0E000E0102000402022D200B001A0E020E030E040E050E010201040204010401
04010900170E060E070E080E011A0904020E0404020E02040201
} repl/parse-arg [arg] #@[source: [[cond [repl/parse-args/eval-next [try display/error [eval-in root-closure [cons do [read arg]]] [set! repl/parse-args/eval-next #f]]] [[= [char-at arg 0] 45] [repl/parse-options [string/cut arg 1]]] [#t [try display/error [file/eval arg]] [set! repl/parse-args/run-repl #f]]]]] #{##[repl/parse-args/eval-next display/error eval-in root-closure do read arg char-at repl/parse-options string/cut file/eval repl/parse-args/run-repl]
0E000B001F0E011900170E020E030E040E050E0604011404020D1C0500160900
380E070E0602000402022D200B00120E080E090E0602010402040109001B1B0B
00160E0119000A0E0A0E060401160D1C050B0900042401
} repl/parse-args [args] #@[source: [[if args [do [repl/parse-arg [car args]] [repl/parse-args [cdr args]]] repl/parse-args/run-repl]]] #{##[args repl/parse-arg repl/parse-args repl/parse-args/run-repl]
0E000B00150E010E001104010D0E020E001204010900050E0301
} repl/init/wasm [args] #@[source: [[repl/welcome]]] #{##[repl/welcome]
0E00040001
} repl/init/bin [args] #@[source: [[try repl/exception-handler [set! repl/executable-name [car args]] [when [repl/parse-args [cdr args]] [repl]]]]] #{##[repl/exception-handler args repl/executable-name repl/parse-args repl]
0E0019001C0E011105020D0E030E011204010B000A0E040400090004241601
} repl/init args #@[source: [[set! repl/args args] [if [= System/Architecture 'wasm] [repl/init/wasm args] [repl/init/bin args]]]] #{##[args repl/args System/Architecture wasm repl/init/wasm repl/init/bin]
0E0005010D0E021A03200B000C0E040E0004010900090E050E00040101
}]
2407000D2407010D2407020D1A0307040D2407050D1C07060D1B07070D0E0824
040107090D0E08240401070A0D1A0B1A0C1A0D1A0E17070B0D1A0F1A101A111A
1217070F0D1A131A141A151A161707130D1A171A181A191A1A1707170D1A1B1A
1C1A1D1A1E17071B0D1A1F1A201A211A2217071F0D1A231A241A251A26170723
0D1A271A281A291A2A1707270D1A2B1A2C1A2D1A2E17072B0D1A2F1A301A311A
3217072F0D0E330E0A1A341A351A361A371A381704030D0E330E0A1A391A351A
3A1A3B1A3C1704030D0E330E0A1A3D1A351A3E1A3F1A401704030D0E330E0A1A
411A351A421A431A441704030D0E330E0A1A451A351A461A471A481704030D1A
491A4A1A4B1A4C1707490D1A4D1A4E1A4F1A5017074D0D1A511A521A531A5417
07510D1A551A561A571A581707550D1A591A5A1A5B1A5C1707590D1A5D1A5E1A
5F1A6017075D0D1A611A621A631A6417076101
}