mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-08 21:47: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
|
||||
;(match "test" ((? string? s) s) (else #f))
|
||||
;
|
||||
;(let ((v "test"))
|
||||
; (match-next v ("test" (set! "test")) ((? string? s) s) (else #f)))
|
||||
;
|
||||
;(let ((v "test"))
|
||||
; (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) ())))
|
||||
;
|
||||
;(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 ((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) ()))))
|
||||
(match-two v ((? string? s) s) ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ())))
|
||||
|
||||
)
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue