1 ;; Testing cons function
8 (cons (list 1) (list 2 3))
11 ;; Testing concat function
16 (concat (list 1 2) (list 3 4))
18 (concat (list 1 2) (list 3 4) (list 5 6))
24 ;; Testing regular quote
39 ;; Testing simple quasiquote
48 (quasiquote (1 2 (3 4)))
79 ;; Testing splice-unquote
88 ;; Testing symbol equality
101 ;;; TODO: needs expect line length fix
102 ;;;((fn* [q] (quasiquote ((unquote q) (quote (unquote q))))) (quote (fn* [q] (quasiquote ((unquote q) (quote (unquote q)))))))
103 ;;;=>((fn* [q] (quasiquote ((unquote q) (quote (unquote q))))) (quote (fn* [q] (quasiquote ((unquote q) (quote (unquote q)))))))
106 ;; -------- Optional Functionality --------
108 ;; Testing cons, concat, first, rest with vectors
114 (concat [1 2] (list 3 4) [5 6])
117 ;; Testing unquote with vectors
125 ;; Testing splice-unquote with vectors
126 (def! c '(1 "b" "d"))
131 ;;;;=>[1 1 "b" "d" 3]