From 1c0a3e34ab5c2a4208ae567c12381f84a44532f5 Mon Sep 17 00:00:00 2001
From: Ted Yin <ted.sybil@gmail.com>
Date: Wed, 7 Aug 2013 09:50:35 +0800
Subject: a little fix

---
 builtin.cpp | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

(limited to 'builtin.cpp')

diff --git a/builtin.cpp b/builtin.cpp
index e5e0614..b1d2a93 100644
--- a/builtin.cpp
+++ b/builtin.cpp
@@ -729,7 +729,8 @@ BUILTIN_PROC_DEF(make_list) {
 BUILTIN_PROC_DEF(num_add) {
     NumObj *res = new IntNumObj(0), *opr; // the most accurate type
     EvalObj *nptr;
-    for (Cons *ptr = args;;)
+    Cons *ptr;
+    for (ptr = args;;)
     {
         if (!ptr->car->is_num_obj())        // not a number
             throw TokenError("a number", RUN_ERR_WRONG_TYPE);
@@ -757,7 +758,8 @@ BUILTIN_PROC_DEF(num_sub) {
 
     NumObj *res = static_cast<NumObj*>(args->car), *opr;
     EvalObj *nptr;
-    for (Cons *ptr = TO_CONS(args->cdr);;)
+    Cons *ptr;
+    for (ptr = TO_CONS(args->cdr);;)
     {
         if (!ptr->car->is_num_obj())        // not a number
             throw TokenError("a number", RUN_ERR_WRONG_TYPE);
@@ -782,7 +784,8 @@ BUILTIN_PROC_DEF(num_sub) {
 BUILTIN_PROC_DEF(num_multi) {
     NumObj *res = new IntNumObj(1), *opr; // the most accurate type
     EvalObj *nptr;
-    for (Cons *ptr = args;;)
+    Cons *ptr;
+    for (ptr = args;;)
     {
         if (!ptr->car->is_num_obj())        // not a number
             throw TokenError("a number", RUN_ERR_WRONG_TYPE);
@@ -810,7 +813,8 @@ BUILTIN_PROC_DEF(num_div) {
 
     NumObj *res = static_cast<NumObj*>(args->car), *opr;
     EvalObj *nptr;
-    for (Cons *ptr = TO_CONS(args->cdr);;)
+    Cons *ptr;
+    for (ptr = TO_CONS(args->cdr);;)
     {
         if (!ptr->car->is_num_obj())        // not a number
             throw TokenError("a number", RUN_ERR_WRONG_TYPE);
@@ -839,8 +843,9 @@ BUILTIN_PROC_DEF(num_lt) {
 
     NumObj *last = static_cast<NumObj*>(args->car), *opr; 
     EvalObj *nptr;
+    Cons *ptr;
     
-    for (Cons *ptr = TO_CONS(args->cdr);; last = opr)
+    for (ptr = TO_CONS(args->cdr);; last = opr)
     {
         if (!ptr->car->is_num_obj())        // not a number
             throw TokenError("a number", RUN_ERR_WRONG_TYPE);
@@ -869,8 +874,9 @@ BUILTIN_PROC_DEF(num_gt) {
 
     NumObj *last = static_cast<NumObj*>(args->car), *opr; 
     EvalObj *nptr;
+    Cons *ptr;
     
-    for (Cons *ptr = TO_CONS(args->cdr);; last = opr)
+    for (ptr = TO_CONS(args->cdr);; last = opr)
     {
         if (!ptr->car->is_num_obj())        // not a number
             throw TokenError("a number", RUN_ERR_WRONG_TYPE);
@@ -899,8 +905,9 @@ BUILTIN_PROC_DEF(num_eq) {
 
     NumObj *last = static_cast<NumObj*>(args->car), *opr; 
     EvalObj *nptr;
+    Cons *ptr;
     
-    for (Cons *ptr = TO_CONS(args->cdr);; last = opr)
+    for (ptr = TO_CONS(args->cdr);; last = opr)
     {
         if (!ptr->car->is_num_obj())        // not a number
             throw TokenError("a number", RUN_ERR_WRONG_TYPE);
-- 
cgit v1.2.3