fix evlis argumuent execution order.

mes.c

@@ -405,7 +405,8 @@ evlis (scm *m, scm *a)
 #endif
   if (m == &scm_nil)
     return &scm_nil;
-  return cons (eval (car (m), a), evlis (cdr (m), a));
+  scm *e = eval (car (m), a);
+  return cons (e, evlis (cdr (m), a));
 }
 scm scm_evlis = {FUNCTION2, .name="evlis", .function2 = &evlis};
 

mes.mes

@@ -212,10 +212,7 @@
          (getchar)
          '())
         ;; TODO *dot*
-        (#t (xcons (readlis a) (readword (getchar) '() a)))))
-
-(define (xcons a b)
-  (cons b a))
+        (#t (cons (readword (getchar) '() a) (readlis a)))))
 
 (define (readcomment c)
   (cond ((eq c 10) ;; \n

test.mes

@@ -26,6 +26,9 @@
 4
 (newline)
 
+(cons (display 'one) (display '-) (display 'two))
+(newline)
+
 (display 'hello-display-symbol)
 (newline)