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

New file for testing purposes only

Browse source
This commit is contained in:
Justin Ethier 2018-01-31 13:16:42 -05:00
parent ed840958e9
commit f2b020d412
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
test-record-types.scm Normal file
View file

@ -0,0 +1,23 @@
;; 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)
)