core: Quoted internals are symbols.
[mes.git] / define.c
index fd6c87e336d706de39e37b2dbe1c6ac32e64eb16..50f41eb373640edb81f693cde96b373f81cd5a70 100644 (file)
--- a/define.c
+++ b/define.c
@@ -20,7 +20,7 @@
 
 #if !BOOT
 scm *
-define (scm *x, scm *a)
+define_env (scm *x, scm *a)
 {
   scm *e;
   scm *name = cadr (x);
@@ -43,7 +43,7 @@ define (scm *x, scm *a)
   return entry;
 }
 #else // BOOT
-scm*define (scm *x, scm *a){}
+scm*define_env (scm *x, scm *a){}
 #endif
 
 scm *