Permalink
Browse files

xe, codegen: fixed bugs related to 'symeval

  • Loading branch information...
1 parent ac3d11c commit f68a1be0599bdaeb1c21159dfcd7fefff5776e31 @AmkG AmkG committed Jul 31, 2008
Showing with 3 additions and 3 deletions.
  1. +2 −2 codegen.arc
  2. +1 −1 xe.arc
View
@@ -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")
View
2 xe.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 ()

0 comments on commit f68a1be

Please sign in to comment.