all repos — min @ f2336ecbed81855af87bd523c0b9ca8c436ade31

A small but practical concatenative programming language.

prelude.min

 1
 2
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
; Imports
'str       import
'io        import
'logic     import
'num       import
'sys       import
'time      import
'fs        import
'crypto    import

; Aliases
'define       ::
'bind         :@
'exit         :quit
'==           :eq
'!=           :noteq
'>            :gt
'<            :lt
'>=           :gte
'<=           :lte
'put          :echo
'system       :!
'run          :&
'getenv       :$
'pop          :zap
'quote        :unit
'quote        :'
'unquote      :i
'unquote      :apply
'unquote      :->
'scope        :=>
'filter       :select
'cons         :prepend
'size         :length
'regex        :=~

; Mathematical Operators
(1 +)           :succ
(1 -)           :pred
(2 mod 0 ==)    :even?
(even? not)     :odd?


; Stack Operators
(swap cons)                       :swons
((pop) dip)                       :popd
((dup) dip)                       :dupd
((swap) dip)                      :swapd
((dup) dip i)                     :q
((zap) dip i)                     :k
((cons) dip i)                    :b
((swap) dip i)                    :c
((dip) cons cons)                 :take
(() cons dip)                     :dig1
(() cons cons dip)                :dig2
(() cons cons cons dip)           :dig3
((() cons) dip swap i)            :bury1
((() cons cons) dip swap i)       :bury2
((() cons cons cons) dip swap i)  :bury3

; Other
(print pop)                                                   :print!
(dprint pop)                                                  :dprint!
(put pop)                                                     :put!
(:ms :q :check (check) (ms sleep q) while)                    :interval
(call pop)                                                    :call!

; Load all stored symbols

stored-symbols ('load-symbol ROOT with) foreach