mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-08 13:37:33 +02:00
Working through macro expansion
This commit is contained in:
parent
8ceae73cef
commit
18c76b6891
1 changed files with 22 additions and 4 deletions
|
@ -15,17 +15,35 @@
|
||||||
|
|
||||||
(display
|
(display
|
||||||
;(match "test" ((? string? s) s) (else #f))
|
;(match "test" ((? string? s) s) (else #f))
|
||||||
|
;
|
||||||
;(let ((v "test"))
|
;(let ((v "test"))
|
||||||
; (match-next v ("test" (set! "test")) ((? string? s) s) (else #f)))
|
; (match-next v ("test" (set! "test")) ((? string? s) s) (else #f)))
|
||||||
|
;
|
||||||
;(let ((v "test"))
|
;(let ((v "test"))
|
||||||
; (let ((failure (lambda () (match-next v ("test" (set! "test")) (else #f)))))
|
; (let ((failure (lambda () (match-next v ("test" (set! "test")) (else #f)))))
|
||||||
; (match-one v ((? string? s) s) ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ())))
|
; (match-one v ((? string? s) s) ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ())))
|
||||||
|
;
|
||||||
|
;(let ((v "test"))
|
||||||
|
; (let ((failure (lambda () (match-next v ("test" (set! "test")) (else #f)))))
|
||||||
|
; (match-check-ellipsis
|
||||||
|
; s
|
||||||
|
; (match-extract-vars (? string? s) (match-gen-ellipsis v (? string? s) () ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ()) () ())
|
||||||
|
; (match-two v ((? string? s) s) ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ()))))
|
||||||
|
;
|
||||||
|
;(let ((v "test"))
|
||||||
|
; (let ((failure (lambda () (match-next v ("test" (set! "test")) (else #f)))))
|
||||||
|
; (match-check-ellipsis
|
||||||
|
; s
|
||||||
|
; (match-extract-vars (? string? s) (match-gen-ellipsis v (? string? s) () ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ()) () ())
|
||||||
|
; (match-two v ((? string? s) s) ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ()))))
|
||||||
|
;
|
||||||
|
;(let ((v "test"))
|
||||||
|
; (let ((failure (lambda () (match-next v ("test" (set! "test")) (else #f)))))
|
||||||
|
; (match-two v ((? string? s) s) ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ())))
|
||||||
|
;
|
||||||
(let ((v "test"))
|
(let ((v "test"))
|
||||||
(let ((failure (lambda () (match-next v ("test" (set! "test")) (else #f)))))
|
(let ((failure (lambda () (match-next v ("test" (set! "test")) (else #f)))))
|
||||||
(match-check-ellipsis
|
(match-two v ((? string? s) s) ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ())))
|
||||||
s
|
|
||||||
(match-extract-vars (? string? s) (match-gen-ellipsis v (? string? s) () ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ()) () ())
|
|
||||||
(match-two v ((? string? s) s) ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ()))))
|
|
||||||
|
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue