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

fixing typo s/vetor/vector in largely unused set! code

Browse source
This commit is contained in:
Alex Shinn 2012-11-28 21:06:30 +09:00
parent bf2eaea22b
commit 5909732e82
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -210,6 +210,7 @@
;; performance can be found at ;; performance can be found at
;; http://synthcode.com/scheme/match-cond-expand.scm ;; http://synthcode.com/scheme/match-cond-expand.scm
;; ;;
;; 2012/11/28 - fixing typo s/vetor/vector in largely unused set! code
;; 2012/05/23 - fixing combinatorial explosion of code in certain or patterns ;; 2012/05/23 - fixing combinatorial explosion of code in certain or patterns
;; 2011/09/25 - fixing bug when directly matching an identifier repeated in ;; 2011/09/25 - fixing bug when directly matching an identifier repeated in
;; the pattern (thanks to Stefan Israelsson Tampe) ;; the pattern (thanks to Stefan Israelsson Tampe)
@ -671,7 +672,7 @@
(if (>= j len) (if (>= j len)
(let ((id (reverse id-ls)) ...) (sk ... i)) (let ((id (reverse id-ls)) ...) (sk ... i))
(let ((w (vector-ref v j))) (let ((w (vector-ref v j)))
(match-one w p ((vector-ref v j) (vetor-set! v j)) (match-one w p ((vector-ref v j) (vector-set! v j))
(match-drop-ids (loop (+ j 1) (cons id id-ls) ...)) (match-drop-ids (loop (+ j 1) (cons id id-ls) ...))
fk i))))))) fk i)))))))