Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-08 13:37:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge branch 'master' of github.com:justinethier/cyclone

Browse source
This commit is contained in:
Justin Ethier 2020-12-19 21:21:33 -05:00
commit a6860d7ea8
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)