File: syntax-tests-2.scm

package info (click to toggle)
chicken 5.3.0-2
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 32,892 kB
  • sloc: ansic: 580,083; lisp: 71,987; tcl: 1,445; sh: 588; makefile: 60
file content (4 lines) | stat: -rw-r--r-- 159 bytes parent folder | download | duplicates (6) 
1
2
3
4
 
;;;; syntax-tests-2.scm - tests using extended syntax at runtime

(eval '(define-record-type x (make x) x? (x get-x)))
(assert (eq? 'yes (get-x (make 'yes))))