@@ -214,12 +214,12 @@ ; no constants; dummy initialize "\n#define init_constants()\n") (if is-symeval-used - (list "void init_symeval(void){\nstruct symbol* symp;\n" + (list "void init_symeval(void){\nsymbol* symp;\n" (let i -1 (mapeach var global-vars (++ i) (list - "symp = (struct symbol*) SYM2OBJ(" + "symp = (symbol*) SYM2OBJ(" (tostring:write (coerce var!uid 'string)) ");\n" "symp->global = &GLOBAL(" i ");\n"))) "}\n") codegen.arc @@ -146,7 +146,7 @@ (if (isnt 2 (len e)) (err "symeval expects 1 arg")) (let (_ form) e (if (caris form 'quote) - (make-ref '() (new-global (cadr form))) + (make-ref '() (xe-lookup (cadr form) '())) (make-prim (list:xe form cte) '%symeval))))) initial-ctes*) (def make-initial-cte () xe.arc ac3d11ce5d560984d4ea4ef44c23fb555be87ce1 Alan Manuel K. Gloria almkglor@gmail.com http://github.com/sacado/arc2c/commit/f68a1be0599bdaeb1c21159dfcd7fefff5776e31 f68a1be0599bdaeb1c21159dfcd7fefff5776e31 2008-07-31T08:19:41-07:00 2008-07-31T08:19:41-07:00 xe, codegen: fixed bugs related to 'symeval eb5ea92aa51d61c9c182be18e92e781740957758 Alan Manuel K. Gloria almkglor@gmail.com