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

Fix regression in is-a?

Browse source
This commit is contained in:
Justin Ethier 2020-08-18 22:14:09 -04:00
parent ed167c71c1
commit 746d308a75
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/base.sld
View file

@ -2027,7 +2027,8 @@
(define (is-a? obj rtype) (define (is-a? obj rtype)
(and (record? obj) (and (record? obj)
(record? rtype) (record? rtype)
(equal? (vector-ref obj 1) rtype))) (equal? (vector-ref obj 1)
(vector-ref rtype 1))))
(define-syntax define-record-type (define-syntax define-record-type
(er-macro-transformer (er-macro-transformer