lib-ac.scm.arc @@ -7,4 +7,5 @@ (load "sharedvars.arc") (load "rm-global.arc") (load "in-global.arc") +(load "lib-ac.scm.arc") arc2c.arc @@ -510,6 +510,7 @@ int main (int argc, char * argv[]) { (,to-3-if "3-arg-if TRANSFORMATION") ; --------AST form (,[xe _ ()] "AST TRANSFORMATION") + (,lib-ac-insert "ac.scm LIBRARY INSERTION") (,in-global "GLOBAL INLINING") (,rm-global "UNUSED GLOBAL REMOVAL") (,sharedvars-convert-assert "SHARED VARIABLE CONVERSION") codegen.arc @@ -38,23 +38,6 @@ (def xe-exprs (le cte) (map [xe _ cte] le)) -(= macis* (make-macro 'is - (fn (e cte) - (if (is (len (cdr e)) 2) - (make-prim (xe-exprs (cdr e) cte) '%is) - (err "is : expects 2 args"))))) - -(= macisnt* (make-macro 'isnt - (fn (e cte) - (if (is (len (cdr e)) 2) - (make-prim (xe-exprs (cdr e) cte) '%isnt) - (err "isnt : expects 2 args"))))) - -(= mactype* (make-macro 'type - (fn (e cte) - (if (is (len (cdr e)) 1) - (make-prim (xe-exprs (cdr e) cte) '%type) - (err "type expects 1 arg"))))) (= mac<* (make-macro '< (fn (e cte) @@ -98,23 +81,6 @@ (make-prim (xe-exprs (cdr e) cte) '%*) (err "* expects 2 args"))))) -(= maccons* (make-macro 'cons - (fn (e cte) - (if (is (len (cdr e)) 2) - (make-prim (xe-exprs (cdr e) cte) '%cons) - (err "cons expects 2 args"))))) - -(= maccar* (make-macro 'car - (fn (e cte) - (if (is (len (cdr e)) 1) - (make-prim (xe-exprs (cdr e) cte) '%car) - (err "car expects 1 arg"))))) - -(= maccdr* (make-macro 'cdr - (fn (e cte) - (if (is (len (cdr e)) 1) - (make-prim (xe-exprs (cdr e) cte) '%cdr) - (err "cdr expects 1 arg"))))) (= macquote* (make-macro 'quote (fn (e cte) @@ -122,18 +88,6 @@ (make-quote (cdr e)) (err "quote expects 1 arg"))))) -(= macprn* (make-macro 'prn - (fn (e cte) - (if (is (len (cdr e)) 1) - (make-prim (xe-exprs (cdr e) cte) '%prn) - (err "prn expects 1 arg"))))) - -(= macpr* (make-macro 'pr - (fn (e cte) - (if (is (len (cdr e)) 1) - (make-prim (xe-exprs (cdr e) cte) '%pr) - (err "pr expects 1 arg"))))) - (= macset* (make-macro 'set (fn (e cte) (if (is (len (cdr e)) 2) @@ -204,8 +158,8 @@ (def make-initial-cte () (list - macis* macisnt* mac<* mac>* mac<=* mac>=* mac+* mac-* mac** macquote* macpr* macprn* macset* mac=* macif* - mactype* macfn* macdo* maclet* macor* macand* maccons* maccar* maccdr*)) + mac<* mac>* mac<=* mac>=* mac+* mac-* mac** macquote* macset* mac=* macif* + macfn* macdo* maclet* macor* macand*)) (def xe-lookup (id cte) (or xe.arc dda397858cde24b1f21edf9eac3119ba0fd20ad9 Alan Manuel K. Gloria almkglor@gmail.com http://github.com/sacado/arc2c/commit/3fc90cec5247f8266a7aff73ec0f27f06095ec24 3fc90cec5247f8266a7aff73ec0f27f06095ec24 2008-04-09T07:57:10-07:00 2008-04-09T07:57:10-07:00 lib-ac: Created file for functions defined in ac.scm lib-ac can access primitives, and can use globals accessible only to functions inside lib-ac. 1908e1a9594763fbc83c6dbbccf7b7518630c799 Alan Manuel K. Gloria almkglor@gmail.com