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

Removing length* references in match, making match.sld portable R7RS.

Browse source
This commit is contained in:
Alex Shinn 2012-11-28 21:30:12 +09:00
parent 36bc32c13d
commit 3b232b241c
2 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/chibi/match.sld
View file

@ -1,6 +1,7 @@
(define-library (chibi match)
(export match match-lambda match-lambda* match-let match-letrec match-let*)
(import (chibi))
(cond-expand
(chibi (import (chibi)))
(else (import (scheme base))))
(include "match/match.scm"))

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

@ -522,9 +522,9 @@
;; remaining list length so we don't need any backtracking
(match-verify-no-ellipses
r
(let* ((tail-len (length* 'r))
(let* ((tail-len (length 'r))
(ls v)
(len (and (list? ls) (length* ls))))
(len (and (list? ls) (length ls))))
(if (or (not len) (< len tail-len))
fk
(let loop ((ls ls) (n len) (id-ls '()) ...)