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-23 17:07:52 -05:00
parent 68286e7ecd
commit fed2e90c3d
1 changed files with 33 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
match-simple.scm
View file

@ -161,10 +161,41 @@
;(display (tst "gehtdurch"))
;(display (tst 42))
;(display (match-one '(a . b) (? pair? x) 1 0))
(display (match
'(a . b) ;;"test"
((? pair? x) x)
"test"
;'(c . d) ;;"test"
;((? pair? x) x)
((? string? x) x)
(_ 'no-match)
))
;; Expanded version of above, what is going on?
(display
((lambda (tmp$1539$1543)
((lambda (fail$1534$1545 fail$1537$1544)
(set! fail$1534$1545 (lambda () 'no-match))
(set! fail$1537$1544
(lambda () (error "no matches" tmp$1539$1543)))
(if (string? tmp$1539$1543)
(if (pair? tmp$1539$1543)
((lambda (tmp1$1558$1559)
((lambda (abracadabra$1561$1612)
((lambda (tmp2$1555$1608$1613)
(if (if (pair? tmp2$1555$1608$1613)
(null? (cdr tmp2$1555$1608$1613))
#f)
((lambda (tmp$1617$1621)
((lambda (abracadabra$1623$1670)
abracadabra$1623$1670)
tmp$1617$1621))
(car tmp2$1555$1608$1613))
(fail$1534$1545)))
(cdr tmp$1539$1543)))
tmp1$1558$1559))
(car tmp$1539$1543))
(fail$1534$1545))
(fail$1534$1545)))
#f
#f))
"test"))