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

Working through let*-syntax

Browse source
This commit is contained in:
Justin Ethier 2017-12-12 18:13:36 -05:00
parent b283c50341
commit 8301c70e70
1 changed files with 32 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
tests/let-syntax.scm
View file

@ -1,16 +1,41 @@
(import (scheme base) (scheme write) (scheme cyclone pretty-print))
;; Just testing, may want to remove this one once the recursive macro expansion works
(define-syntax my-or2 (syntax-rules ()
((my-or2) #f)
((my-or2 e) e)
((my-or2 e1 e2 ...)
(let ((temp e1)) (if temp temp (my-or2 e2 ...))))))
(write (my-or2 #t))
; (define-syntax my-or2 (syntax-rules ()
; ((my-or2) #f)
; ((my-or2 e) e)
; ((my-or2 e1 e2 ...)
; (let ((temp e1)) (if temp temp (my-or2 e2 ...))))))
;(write (my-or2 #t))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-syntax my-or (syntax-rules ()
((my-or) #f)
((my-or e) e)
((my-or e1 e2 ...)
(let ((temp e1)) (if temp temp (my-or e2 ...))))))
(write
(let ((x #f)
(y 7)
(temp 8)
(my-let odd?)
(my-if even?))
(my-or x (my-let temp) (my-if y) y))) ;; ==> 7
(let-syntax
(define-syntax foo (syntax-rules ()
((_ b)
(bar a b))))
(define-syntax bar (syntax-rules () ((_ c d)
(cons c (let ((c 3))
(list d c 'c))))))
(write
(let ((a 2))
(foo a)))
;; Chibi also fails with the same error when this is a let-synatx macro,
;; so it may be that Cyclone works just fine here! Obviously it needs
;; to be able to handle this macro in letrec-syntax form, though
#;(let-syntax
((my-or (syntax-rules ()
((my-or) #f)
((my-or e) e)