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

Working through macro issues with and

Browse source
This commit is contained in:
Justin Ethier 2018-01-27 18:03:41 -05:00
parent 32b0db4423
commit 9d5a4eaf5c
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
match-test.scm
View file

@ -51,8 +51,9 @@
;; 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-one "test" (and s) ("test" (set! "test")) (match-drop-ids (begin s)) (failure) ())
; (match 1 ((and x) x))
(match-two 1 (and x) (1 (set! 1)) (match-drop-ids (begin . x)) (begin) ())
; (match-two "test" ((? string? s) s) ("test" (set! "test")) (match-drop-ids (begin . s)) (begin) ())
;; I think there is some kind of interaction going on here with the "and" macro, where it