Changeset 636 for abuse/trunk/src/objects.cppTweet

Timestamp:

May 11, 2011, 1:26:15 AM (11 years ago)

Author:

Sam Hocevar

Message:

lisp: merge the Lisp and LispGC classes and improve coding style.

File:

• abuse/trunk/src/objects.cpp (modified) (2 diffs)

abuse/trunk/src/objects.cpp

@@ -488 +488 @@
     am = LList::Create();
     PtrRef r1(am);
-    am->car = LNumber::Create(amount);
+    am->m_car = LNumber::Create(amount);
 
     frm = LList::Create();
     PtrRef r2(frm);
-    frm->car = LPointer::Create(from);
+    frm->m_car = LPointer::Create(from);
 
     hx = LList::Create();
     PtrRef r3(hx);
-    hx->car = LNumber::Create(hitx);
+    hx->m_car = LNumber::Create(hitx);
 
     hy = LList::Create();
     PtrRef r4(hy);
-    hy->car = LNumber::Create(hity);
+    hy->m_car = LNumber::Create(hity);
 
     px = LList::Create();
     PtrRef r5(px);
-    px->car = LNumber::Create(push_xvel);
+    px->m_car = LNumber::Create(push_xvel);
 
     py = LList::Create();
     PtrRef r6(py);
-    py->car = LNumber::Create(push_yvel);
-
-    px->cdr = py;
-    hy->cdr = px;
-    hx->cdr = hy;
-    frm->cdr = hx;
-    am->cdr = frm;
+    py->m_car = LNumber::Create(push_yvel);
+
+    px->m_cdr = py;
+    hy->m_cdr = px;
+    hx->m_cdr = hy;
+    frm->m_cdr = hx;
+    am->m_cdr = frm;
 
     time_marker *prof1 = NULL;
@@ -1203 +1203 @@
     lcx = LList::Create();
     PtrRef r1(lcx);
-    lcx->car = LNumber::Create(cx);
+    lcx->m_car = LNumber::Create(cx);
 
     lcy = LList::Create();
     PtrRef r2(lcy);
-    lcy->car = LNumber::Create(cy);
+    lcy->m_car = LNumber::Create(cy);
 
     lb = LList::Create();
     PtrRef r3(lb);
-    lb->car = LNumber::Create(button);
-
-    lcx->cdr = lcy;
-    lcy->cdr = lb;
+    lb->m_car = LNumber::Create(button);
+
+    lcx->m_cdr = lcy;
+    lcy->m_cdr = lb;
 
     void *m = LSpace::Tmp.Mark();