test.qx

(defun! append (el to)
	(concat to (list el)))

;;; partially applies some arguments to a function
(defmacro! part (fun &args)
	`(fn* (it) (,fun ~args)))

(val! ret 0)

;; (defmacro! apply (&args)
;; 	(let* (last ((count args) \- 1))
;; 		(do
;; 			`(,(car args) ; first function
;; 				~(slice 1 last args) ; rest of the arguments
;; 				~(nth last args))))) ; arguments provided in a list

;; (defun! __do-filter (pred list acc)
;; 			(if (nil? list)
;; 				acc
;; 				(__do-filter 
;; 					pred 
;; 					(cdr list)
;; 					(if (pred (car list))
;; 						(cons (car list) acc)
;; 						acc))))

;; (defun! filter (pred list)
;; 		(__do-filter pred list '()))

;; (defun! count_atoms (sym in)
;; 	(filter (part = sym)
;; 		 (filter 
;; 		 sym?
;; 		 (dbg in))))

(export! '(ret part append))

0