From 2376694066d2872009f3d4d31b1ab8f679256ed1 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 29 Mar 2016 01:46:40 -0400 Subject: [PATCH] Replace maps with folds --- scheme/eval.sld | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/scheme/eval.sld b/scheme/eval.sld index 5c6ef088..f4f070c9 100644 --- a/scheme/eval.sld +++ b/scheme/eval.sld @@ -288,12 +288,18 @@ (list 'Cyc-display Cyc-display))) (define (primitive-procedure-names) - (map car - primitive-procedures)) + (foldr + (lambda (x y) + (cons (car x) y)) + '() + primitive-procedures)) (define (primitive-procedure-objects) - (map (lambda (proc) (list 'primitive (cadr proc))) - primitive-procedures)) + (foldr + (lambda (proc rest) + (cons (list 'primitive (cadr proc)) rest)) + '() + primitive-procedures)) (define (apply-primitive-procedure proc args) (apply ;apply-in-underlying-scheme