Replace maps with folds

scheme/eval.sld

@@ -288,12 +288,18 @@
       (list 'Cyc-display Cyc-display)))
 
 (define (primitive-procedure-names)
-  (map car
+  (foldr 
-       primitive-procedures))
+    (lambda (x y) 
+      (cons (car x) y)) 
+   '() 
+    primitive-procedures))
 
 (define (primitive-procedure-objects)
-  (map (lambda (proc) (list 'primitive (cadr proc)))
+  (foldr
-       primitive-procedures))
+    (lambda (proc rest) 
+      (cons (list 'primitive (cadr proc)) rest))
+   '()
+    primitive-procedures))
 
 (define (apply-primitive-procedure proc args)
   (apply ;apply-in-underlying-scheme