ref: 5d8fd67bba2d59dc59203149d62764a98622e27c
parent: 14c196a5da48284123d615418c80b6fbc87d7f46
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Tue Dec 3 22:36:06 EST 2024
system: remove unused map* funcs
--- a/system.lsp
+++ b/system.lsp
@@ -15,25 +15,6 @@
`(set-syntax! ',(car form)
(λ ,(cdr form) ,@body)))
-#;(define (map1 f lst acc)
- (cdr
- (prog1 acc
- (while (pair? lst)
- (begin (set! acc
- (cdr (set-cdr! acc (cons (f (car lst)) ()))))
- (set! lst (cdr lst)))))))
-
-#;(define (mapn f lsts)
- (if (null? (car lsts))
- ()
- (cons (apply f (map1 car lsts (list ())))
- (mapn f (map1 cdr lsts (list ()))))))
-
-#;(define (map f lst . lsts)
- (if (null? lsts)
- (map1 f lst (list ()))
- (mapn f (cons lst lsts))))
-
(define-macro (letrec binds . body)
`((λ ,(map car binds)
,.(map (λ (b) `(set! ,@b)) binds)