Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

First successful test importing macro from compiled lib

Browse source
This commit is contained in:
Justin Ethier 2015-08-14 01:53:14 -04:00
parent 92f980b8ce
commit 82e908d670
1 changed files with 20 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
test2.scm
View file

@ -18,26 +18,26 @@
; ;
; WTF is the macro unable to be evaluated when the same code works as part of *defined-macros*??? ; WTF is the macro unable to be evaluated when the same code works as part of *defined-macros*???
; ;
;(define-syntax test (define-syntax test
; (er-macro-transformer (er-macro-transformer
; (lambda (expr rename compare) (lambda (expr rename compare)
; (cond ((null? (cdr expr)) #t) (cond ((null? (cdr expr)) #t)
;; (cond ((null? (cdr expr))) ; (cond ((null? (cdr expr)))
; ((null? (cddr expr)) (cadr expr)) ((null? (cddr expr)) (cadr expr))
; (else (list (rename 'if) (cadr expr) (else (list (rename 'if) (cadr expr)
; (cons (rename 'and) (cddr expr)) (cons (rename 'and) (cddr expr))
; #f)))))) #f))))))
;
;(define-syntax or (define-syntax or
; (er-macro-transformer (er-macro-transformer
; (lambda (expr rename compare) (lambda (expr rename compare)
; (cond ((null? (cdr expr)) #f) (cond ((null? (cdr expr)) #f)
; ((null? (cddr expr)) (cadr expr)) ((null? (cddr expr)) (cadr expr))
; (else (else
; (list (rename 'let) (list (list (rename 'tmp) (cadr expr))) (list (rename 'let) (list (list (rename 'tmp) (cadr expr)))
; (list (rename 'if) (rename 'tmp) (list (rename 'if) (rename 'tmp)
; (rename 'tmp) (rename 'tmp)
; (cons (rename 'or) (cddr expr))))))))) (cons (rename 'or) (cddr expr)))))))))
(write (test 1 2 3)) (write (test 1 2 3))
(write (my-or 1 2 3 'or)) (write (my-or 1 2 3 'or))