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

add bounds check

Browse source
This commit is contained in:
Alex Shinn 2021-12-02 22:07:57 +09:00
parent 0da288d053
commit 9a48a110b8
2 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lib/srfi/229.sld
View file

@ -22,6 +22,7 @@
(and (procedure? f) (and (procedure? f)
(let ((vars (procedure-vars f))) (let ((vars (procedure-vars f)))
(and (vector? vars) (and (vector? vars)
(> (vector-length vars) 1)
(eq? procedure-tag-object (eq? procedure-tag-object
(vector-ref vars (- (vector-length vars) 1))))))) (vector-ref vars (- (vector-length vars) 1)))))))
(define (procedure-tag f) (define (procedure-tag f)

1
lib/srfi/229/test.sld
View file

@ -15,6 +15,7 @@
(x) (x)
(* x x))) (* x x)))
(test-assert (procedure/tag? f)) (test-assert (procedure/tag? f))
(test-not (procedure/tag? (lambda (x) (* x x))))
(test 9 (f 3)) (test 9 (f 3))
(test 42 (procedure-tag f)) (test 42 (procedure-tag f))
(test-not (eqv? f f*)) (test-not (eqv? f f*))