Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 08:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #346 from extrasharp/master

Browse source 
Fix (scheme cxr) definitions
This commit is contained in:
Justin Ethier 2019-12-02 12:42:43 -05:00 • committed by GitHub
commit fe27947cd0
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 29 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

56
scheme/cxr.sld
View file

@ -38,34 +38,34 @@
cddddr cddddr
caaaaar) caaaaar)
(begin (begin
(define (caar lis) (car(car(lis)))) (define (caar lis) (car(car lis)))
(define (cadr lis) (car(cdr(lis)))) (define (cadr lis) (car(cdr lis)))
(define (cdar lis) (cdr(car(lis)))) (define (cdar lis) (cdr(car lis)))
(define (cddr lis) (cdr(cdr(lis)))) (define (cddr lis) (cdr(cdr lis)))
(define (caaar lis) (car(car(car(lis))))) (define (caaar lis) (car(car(car lis))))
(define (caadr lis) (car(car(cdr(lis))))) (define (caadr lis) (car(car(cdr lis))))
(define (cadar lis) (car(cdr(car(lis))))) (define (cadar lis) (car(cdr(car lis))))
(define (caddr lis) (car(cdr(cdr(lis))))) (define (caddr lis) (car(cdr(cdr lis))))
(define (cdaar lis) (cdr(car(car(lis))))) (define (cdaar lis) (cdr(car(car lis))))
(define (cdadr lis) (cdr(car(cdr(lis))))) (define (cdadr lis) (cdr(car(cdr lis))))
(define (cddar lis) (cdr(cdr(car(lis))))) (define (cddar lis) (cdr(cdr(car lis))))
(define (cdddr lis) (cdr(cdr(cdr(lis))))) (define (cdddr lis) (cdr(cdr(cdr lis))))
(define (caaaar lis) (car(car(car(car(lis)))))) (define (caaaar lis) (car(car(car(car lis)))))
(define (caaadr lis) (car(car(car(cdr(lis)))))) (define (caaadr lis) (car(car(car(cdr lis)))))
(define (caadar lis) (car(car(cdr(car(lis)))))) (define (caadar lis) (car(car(cdr(car lis)))))
(define (caaddr lis) (car(car(cdr(cdr(lis)))))) (define (caaddr lis) (car(car(cdr(cdr lis)))))
(define (cadaar lis) (car(cdr(car(car(lis)))))) (define (cadaar lis) (car(cdr(car(car lis)))))
(define (cadadr lis) (car(cdr(car(cdr(lis)))))) (define (cadadr lis) (car(cdr(car(cdr lis)))))
(define (caddar lis) (car(cdr(cdr(car(lis)))))) (define (caddar lis) (car(cdr(cdr(car lis)))))
(define (cadddr lis) (car(cdr(cdr(cdr(lis)))))) (define (cadddr lis) (car(cdr(cdr(cdr lis)))))
(define (cdaaar lis) (cdr(car(car(car(lis)))))) (define (cdaaar lis) (cdr(car(car(car lis)))))
(define (cdaadr lis) (cdr(car(car(cdr(lis)))))) (define (cdaadr lis) (cdr(car(car(cdr lis)))))
(define (cdadar lis) (cdr(car(cdr(car(lis)))))) (define (cdadar lis) (cdr(car(cdr(car lis)))))
(define (cdaddr lis) (cdr(car(cdr(cdr(lis)))))) (define (cdaddr lis) (cdr(car(cdr(cdr lis)))))
(define (cddaar lis) (cdr(cdr(car(car(lis)))))) (define (cddaar lis) (cdr(cdr(car(car lis)))))
(define (cddadr lis) (cdr(cdr(car(cdr(lis)))))) (define (cddadr lis) (cdr(cdr(car(cdr lis)))))
(define (cdddar lis) (cdr(cdr(cdr(car(lis)))))) (define (cdddar lis) (cdr(cdr(cdr(car lis)))))
(define (cddddr lis) (cdr(cdr(cdr(cdr(lis)))))) (define (cddddr lis) (cdr(cdr(cdr(cdr lis)))))
;; Non-standard, this is just a placeholder ;; Non-standard, this is just a placeholder
(define (caaaaar lis) (define (caaaaar lis)
(car (car (car (car (car lis)))))))) (car (car (car (car (car lis))))))))