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

updating previous commit to include using bound=? to exlude literals from extracted pattern vars

Browse source
This commit is contained in:
Alex Shinn 2017-07-22 20:11:04 +09:00
parent e3678edbdc
commit 8f52f457d6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/init-7.scm
View file

@ -829,7 +829,7 @@
(define (all-vars x dim) (define (all-vars x dim)
(let lp ((x x) (dim dim) (vars '())) (let lp ((x x) (dim dim) (vars '()))
(cond ((identifier? x) (cond ((identifier? x)
(if (or (any (lambda (lit) (compare x lit)) lits) (if (or (memq x lits)
(compare x _underscore)) (compare x _underscore))
vars vars
(cons (cons x dim) vars))) (cons (cons x dim) vars)))