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

WIP

Browse source
This commit is contained in:
Justin Ethier 2018-01-26 18:43:28 -05:00
parent b00852365b
commit 59c2b31e3e
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
match-test.scm
View file

@ -48,14 +48,13 @@
; (match-one v (and s) ("test" (set! "test")) (match-drop-ids (begin s)) (failure) ())
; (failure))))
; (match-one "test" (and s) ("test" (set! "test")) (match-drop-ids (begin s)) (failure) ())
; (match 1 ((my-and x) x))
;; Following two are broken when using "and" but if we replace "and" with "my-and" in
;; the lib's match-two macro and recompile, the following both work here with "my-and".
;; Something funny going on here...
(match-one "test" (and s) ("test" (set! "test")) (match-drop-ids (begin s)) (failure) ())
; (match 1 ((and x) x))
; (match-two "test" ((? string? s) s) ("test" (set! "test")) (match-drop-ids (begin . s)) (begin) ())
(match-check-ellipsis
(and x)
1
0)
;; I think there is some kind of interaction going on here with the "and" macro, where it
;; is being expanded even though it is part of the syntax-rules literals and should not be.
;; Just a guess, need to prove it, but it could explain why we fall into this case even though