Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 21:59:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix previous fix, fk needs to be made cheap, not sk (issue #698)

Browse source
This commit is contained in:
Alex Shinn 2020-09-01 17:01:21 +09:00
parent 717aeb9e8b
commit e7e034dea0
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/match/match.scm
View file

@ -385,8 +385,8 @@
((match-two v (or p ...) g+s sk fk i) ((match-two v (or p ...) g+s sk fk i)
(match-extract-vars (or p ...) (match-gen-or v (p ...) g+s sk fk i) i ())) (match-extract-vars (or p ...) (match-gen-or v (p ...) g+s sk fk i) i ()))
((match-two v (not p) g+s (sk ...) fk i) ((match-two v (not p) g+s (sk ...) fk i)
(let ((sk2 (lambda () fk))) (let ((fk2 (lambda () (sk ...))))
(match-one v p g+s (match-drop-ids (sk2)) (sk ... i) i))) (match-one v p g+s (match-drop-ids fk) (fk2) i)))
((match-two v (get! getter) (g s) (sk ...) fk i) ((match-two v (get! getter) (g s) (sk ...) fk i)
(let ((getter (lambda () g))) (sk ... i))) (let ((getter (lambda () g))) (sk ... i)))
((match-two v (set! setter) (g (s ...)) (sk ...) fk i) ((match-two v (set! setter) (g (s ...)) (sk ...) fk i)