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

Remove temporary file

Browse source
This commit is contained in:
Justin Ethier 2020-09-17 17:30:02 -04:00
parent 457ca32279
commit 23f0d928ea
1 changed files with 0 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
tests/test-record-types.scm
View file

@ -1,30 +0,0 @@
;; Temporary test file!!
(import (scheme base) (scheme write))
(define-record-type employee
(make-employee name title)
employee?
(name get-name)
(title get-title))
(define-record-type employee2
(make-employee2 name title)
employee2?
(name get-name2)
(title get-title2))
(let ((e (make-employee "Bob" "Doctor")))
(newline)(display (employee? e))
(newline)(display (employee2? e))
(newline)(display e)
(newline)(display (vector-ref e 0))
(newline)(display (vector-ref e 1))
(newline)(display (vector-ref e 2))
;; Why is name false after this, instead of 'employee??
(newline)(display ((make-constructor "make-employee" employee)))
(newline)(display employee)
(newline)(display (is-a? e employee))
(newline)(display (is-a? e employee2))
)
(define (is-a? obj rtype)
(and (record? obj)
(record? rtype)
(equal? (vector-ref obj 1) rtype)))