Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 09:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #427 from seepel/fix-make-type-predicate

Browse source 
Fix a crash in record predicates
This commit is contained in:
Justin Ethier 2020-12-19 21:15:49 -05:00 • committed by GitHub
commit 895fe17794
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
scheme/base.sld
View file

@ -1973,6 +1973,7 @@
(define (make-type-predicate pred name) (define (make-type-predicate pred name)
(lambda (obj) (lambda (obj)
(and (vector? obj) (and (vector? obj)
(= (vector-length obj) 3)
(equal? (vector-ref obj 0) record-marker) (equal? (vector-ref obj 0) record-marker)
(equal? (vector-ref obj 1) name)))) (equal? (vector-ref obj 1) name))))
(define (make-constructor make name) (define (make-constructor make name)