Changeset 27291 in project for release/4/typed-records/tags/0.3/tests/t.scm

Timestamp:

08/24/12 16:28:36 (9 years ago)

Author:

felix winkelmann

Message:

typed-records 0.3: appled fix for #899 (by megane)

Location:

release/4/typed-records/tags/0.3

Files:

• . (copied) (copied from release/4/typed-records/trunk)
• tests/t.scm (modified) (1 diff)

release/4/typed-records/tags/0.3/tests/t.scm

@@ -53 +53 @@
 
   )
+
+;;; test by megane (#899):
+
+(define-record-type foo
+  (make-foo bar)
+  foo?
+  (bar foo-bar foo-bar-set!))
+
+(display (make-foo 1))
+(newline)