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

Removed duplicate definition of 'or'

Browse source
This commit is contained in:
Justin Ethier 2015-08-14 18:16:02 -04:00
parent 9b96d13857
commit 5f1f34e70c
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
test2.scm
View file

@ -28,16 +28,16 @@
(cons (rename 'and) (cddr expr))
#f))))))
(define-syntax or
(er-macro-transformer
(lambda (expr rename compare)
(cond ((null? (cdr expr)) #f)
((null? (cddr expr)) (cadr expr))
(else
(list (rename 'let) (list (list (rename 'tmp) (cadr expr)))
(list (rename 'if) (rename 'tmp)
(rename 'tmp)
(cons (rename 'or) (cddr expr)))))))))
;(define-syntax or
; (er-macro-transformer
; (lambda (expr rename compare)
; (cond ((null? (cdr expr)) #f)
; ((null? (cddr expr)) (cadr expr))
; (else
; (list (rename 'let) (list (list (rename 'tmp) (cadr expr)))
; (list (rename 'if) (rename 'tmp)
; (rename 'tmp)
; (cons (rename 'or) (cddr expr)))))))))
(write (test 1 2 3))
(write (my-or 1 2 3 'or))